How to get the size of the window 

//How to get the size of the window
var
  R: TRect;
begin
  R := GetClientRect;   // Get Window rectange
  //
  // HSize := R.Right - R.Left
  // VSize := R.Bottom - R.Top
end;