masukan duah buah komponen button
ganti caption button pertama horizontal, dan button kedua vertikal

procedure TForm1.Button2Click(Sender: TObject);
 Var lebar:integer;. 
begin
form1.Width:=0;
lebar:=0;
repeat
lebar:=lebar+1;
form1.Width:=lebar + 1;
until lebar>=347;

procedure TForm1.Button3Click(Sender: TObject);
Var tinggi:integer;
form1.Height:=0;
tinggi:=0;
repeat
tinggi:=tinggi+1;
form1.Height:=tinggi;
until tinggi>=240;
end;