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;