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