Delphi - Program Menu, SubMenu, Perulangan, Dan Timer

Pertama, buat lah 3 form terlebih dahulu. File --> New --> Form.
Buatlah seperti di bawah ini :
Form 1 : Main Menu
Form 2 : - GroupBox
               - Label - Edit
                - Memo
                 - Button
Form 3: - Timer
              - Button
               - Label

===========================>
Pada Form 1 :
===========================>

 - Ketikkan Code pada Perulangan :
form1.Hide;
form2.show;
form3.hide;

 - Code Pada timer :
 form1.Hide;
 form2.hide;
 form3.show;

 -Exit :
Application.Terminate ; 

===========================>
Pada Form 2:
===========================>

- Group Box : Caption : perulangan
- Label 1 : Caption : Angka Awal
- label 2 : Caption :Angka Akhir
- Edit 1 : Text : (kosongkan)
- Edit 2 : Text : (kosongkan)
- Button1: Caption : For_do
- Button2: Caption : for_downto
- Button3: Caption : Back

----------------
Code/Script :
----------------

 - Button for_do :

procedure TForm2.Button1Click(Sender: TObject);
var a,b,c,d:Integer;
begin
memo1.Clear;
a:=StrToInt(Edit1.text);
b:=StrToInt(Edit2.Text);
for c:= a to b do
     begin
     d :=Sqr(c);
     memo1.Lines.add(IntToStr(c) + ' Kuadrat = ' + IntToStr(d));
     end;

end;

-------------------------------------------------------------------------------------------

- Button for_downto do :

 procedure TForm2.Button2Click(Sender: TObject);
var a,b,c,d:Integer;
begin
memo1.clear;
a:=StrToInt(Edit1.text);
b:=StrToInt(Edit2.Text);
for c:= b downto a do
      begin
     d:=Sqr(c);
     memo1.Lines.add(IntToStr(c) + ' Kuadrat = ' + IntToStr(d));
end;
end;

--------------------------------------------------------------------------------------------

- Button Back :

 procedure TForm2.Button3Click(Sender: TObject);
begin
form1.show;
form2.hide ;
form3.hide;
end;
end.

--------------------------------------------------------------------------------------------- =======================>
Form 3:
=======================>
---------------------------------------------------------------------------------------------

- Klik 2x pada Timer :

 procedure TForm3.Timer1Timer(Sender: TObject);
begin
label1.Caption:=formatdatetime('hh:mm:ss',now);
label2.caption:=formatdatetime('dd-mmmm-yyyy',now);
end;
end.

---------------------------------------------------------------------------------------------

- Klik 2x pada Button :

procedure TForm3.Button1Click(Sender: TObject);
begin
form1.show;
form2.hide;
form3.Hide;
end;

--------------------------------------------------------------------------------------------