Pada event form.create anda memasukkan code berikut :
procedure TForm1.FormCreate(Sender: TObject);
var
NewRect: Trect;
begin
{See SystemParametersInfo in the Win32.hlp file for other options}
SystemParametersInfo(SPI_GETWORKAREA, 0, Pointer(@NewRect), 0);
Top := NewRect.Top;
Left := NewRect.Left;
Height := NewRect.Bottom - NewRect.Top + 1;
Width := NewRect.Right - NewRect.Left + 1;
end;