Code:

procedure TFormX.FormCreate(Sender: TObject);

Var

  r: TRect;

  client: HWND;

Begin

  client := application.mainform.clienthandle;

  Windows.GetClientRect( client, r );

  MapWindowPoints( client, HWND_DESKTOP, r, 2 );

  BoundsRect := r;

End;