{
ClientHeight example
This example reduces the height of the form's client area by half when the user clicks the button on the form:
} 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientHeight := ClientHeight div 2;
end;

Note that only the client area is halved, not the entire form. 
