Справочник по WinAPI.

SetRect.

Описание: function SetRect(var Rect: TRect; X1, Y1, X2, Y2: Integer);

Заполняет Rect с указанными координатами.

Параметры:

Rect: Принимающая структура TRect.

X1, Y1: Верхний левый угол прямоугольника.

X2, Y2: Нижний правый угол прямоугольника. функция находится в файле user32.dll.