Source position: dialogs.inc line 792
procedure TDialog.CalcBounds(
var Bounds: TRect;
Delta: TPoint
); virtual;