Source position: line 0
procedure IncRect(
var rect: TRect;
delta: Integer
);procedure IncRect(
var rect: TRect
);