Source position: views.inc line 698
procedure TWindow.CalcBounds(
var Bounds: TRect;
Delta: TPoint
); virtual;