Source position: zglGui.pas line 1373
public procedure zglTGui.ShowMessage(
Caption: TCaption;
Data: TCaption;
Effect: TDisplayEffect = deZoomIn
);