{
Height, Width example
The following code determines the height of all forms on the screen and resizes any that are taller than the screen height.
} 
with Screen do
  for I := 0 to FormCount-1 do
    begin
    if Forms[I].Height > Height then 
      Forms[I].Height := Height;
    if Forms[I].Width > Width then 
      Forms[I].Width := Width;
    end;
 
