Obyek Label-Button-Edit Delphi

Obyek Label digunakan untuk menampilkan teks atau tulisan pada form
Obyek Edit digunakan untuk input atau output program
Obyek Button digunakan untuk menjalankan suatu perintah program

Contoh program mengubah tampilan obyek label menjadi sesuai dengan tombol yang ditekan

Untuk mengatur tulisan yang tampil di obyek digunakan properti caption pada obyek label dan button, sedangkan properti name digunakan untuk penulisan program.
Dari contoh di atas nama obyek diubah sesuai yang ditunjuk.
Penggalan programnya :

procedure TForm1.SatuClick(Sender: TObject);
begin
lima.Caption:='kiri';
end;

procedure TForm1.DuaClick(Sender: TObject);
begin
lima.Caption:='bawah';
end;

procedure TForm1.TigaClick(Sender: TObject);
begin
lima.Caption:='kanan';
end;

procedure TForm1.EmpatClick(Sender: TObject);
begin
lima.Caption:='atas';
end;

Contoh program kalkulator sederhana

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:integer;
begin
val(edit1.text,a,c);
val(edit2.text,b,c);
edit3.text:=inttostr(a+b);
end;

procedure TForm1.Button2Click(Sender: TObject);
var a,b,c:integer;
begin
val(edit1.text,a,c);
val(edit2.text,b,c);
edit3.text:=inttostr(a-b);
end;

procedure TForm1.Button3Click(Sender: TObject);
var a,b,c:integer;
begin
val(edit1.text,a,c);
val(edit2.text,b,c);
edit3.text:=inttostr(a*b);
end;

procedure TForm1.Button4Click(Sender: TObject);
var a,b,c : real;
d : integer;
e : string;
begin
val(edit1.text,a,d);
val(edit2.text,b,d);
c:=a/b;
Str(c:5:2,e);
edit3.Text:=e;
end;

Contoh program mengukur tingkat status usia seseorang
Ketentuan :
Nama dan Tahun Lahir diinput
Usia diperoleh dari Tahun Sekarang dikurang Tahun Lahir
Kelompok umur diperoleh dari :
jika usia lebih kecil dari 6, kelompok umur BALITA
jika usia lebih kecil dari 13, kelompok umur ANAK-ANAK
jika usia lebih kecil dari 17, kelompok umur REMAJA
jika usia lebih kecil dari 33, kelompok umur PEMUDA
jika usia lebih kecil dari 61, kelompok umur ORANG TUA
jika usia lebih kecil dari 121, kelompok umur LANSIA
selainnya, kelompok umur TIDAK MUNGKIN
Sedangkan tombol Hapus untuk mengosongkan kembali seluruh kotak edit

Pengaturan propertinya :

Obyek	Property	Setting
Form1	Caption	Tingkat Status
Label1	Caption	Nama
Label2	Caption	Tahun Lahir
Label3	Caption	Usia
Label4	Caption	Kelompok Umur
Edit1	Text	dikosongkan
Edit2	Text	dikosongkan
Edit3	Text	dikosongkan
Edit4	Text	dikosongkan
Button1	Caption	P&roses
Button2	Caption	&Hapus

Programnya :
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
edit4.Text:=' ';
end;

procedure TForm1.Button1Click(Sender: TObject);
var TL,USIA,c : integer;
begin
val(edit2.Text,TL,c);
edit3.Text:=inttostr(2011-TL);
val(edit3.Text,USIA,c);
If USIA <= 5 Then
edit4.text := 'BALITA'
Else If USIA <= 12 Then
edit4.text := 'ANAK-ANAK'
Else If USIA <= 16 Then
edit4.text := 'REMAJA'
Else If USIA <= 32 Then
edit4.text := 'PEMUDA'
Else If USIA <= 60 Then
edit4.text := 'ORANG TUA'
Else If USIA <= 120 Then
edit4.text := 'LANSIA'
Else
edit4.text := 'TIDAK MUNGKIN';
end;