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