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;

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

=================================================>
Tampilan Form1 untuk Inputan Nilai Sederhana ... =================================================>

#Klik 2x pada form1 ..
Isi script/kode di bawah ini untuk memberikan nama pada komponen form1. 

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

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:='Inputan Nilai Sederhana';
label2.Caption:='Nilai';
Label3.Caption:='Predikat';
Label4.Caption:='Keterangan';

Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';

Button1.caption:='Proses';
Button2.Caption:='Ganti warna';
Button3.Caption:='Hapus';
Button4.Caption:='Exit'; 
end;


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

#Klik 2x pada Button1, kemudian isi dengan script di bawah ini untuk memberikan kondisi dengan percabangan if-else, dan dengan memberikan range nilai yang ditentukan.

-------------------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var A:Integer;
begin
A := StrToInt (Edit1.Text);
 if (A>=0) and (A < 30) then
      begin
      edit2.Text:='E';
      edit3.Text:='Gagal';
      end
 else if (A>=30) and (A<50) then
      begin
      edit2.text:='D';
      edit3.Text:='Gagal';
      end
 else if (A>=50) and (A<70) then
      begin
      edit2.text:='C';
      edit3.Text:='Lulus';
      end
  else if (A>=70) and (A<85) then
       begin
       edit2.Text:='B';
       edit3.Text:='Lulus';
       end
 else if (A>=85) and (A<=100) then
       begin
       edit2.Text:='A';
       edit3.Text:='Lulus';
       end
 else
       begin
       edit2.Text:='Salah Input';
       edit3.Text:='Ulangi Lagi';
       end;
end;

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

#Klik 2x pada Button2, kemudian ketikkan script di bawah ini untuk memberikan
warna pada font yang terletak di komponen edit. 

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

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Font.Color:=clred;
Edit2.Font.Color:=clyellow;
Edit3.Font.Color:=clgreen;
end;

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

#Klik2x pada Button3, kemudian ketikkan script di bawah ini untuk
membersihkan hasil layar/output-an yang terjadi jika ingin mebersihkan layar output 

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

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;

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

 #Klik 2x, pada Button4, kemudian ketikkan script di bawah ini untuk
keluar dari form ketika sedang running.

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

procedure TForm1.Button4Click(Sender: TObject);
begin
Application.Terminate;
end;

 end.

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

=========================>

#Tampilan Form1 :

=========================>

Tempatkan label, edit, dan button seperti di bawah ini.

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

#Klik Form1 2x. Tuliskan code seperti di bawah ini:

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

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

#Klik 2x pada Button1 dan Button2. 

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

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

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