Forms Delphi

Title: How to scale a form manually
procedure TForm1.Button1Click(Sender: TObject);
begin
ScaleBy(150, 100);
end;