Cara Merubah Warna Dengan Menekan Button Pada Aplikasi Borland Delphi

Baiklah kali ini saya akan mencoba untuk membuat perubahan warna dengan menekan salah satu Button pada aplikasi Borland Delphi .
Berikut langkah-langkah membuatnya:
1. Buka aplikasi Borland Delphi terlebih dahulu, dengan pilih
   start -> All Programs -> Borland Delphi 7.0

2. Lalu buat form dengan desain seperti dibawah ini ;

3. Lalu masukkan kodingan sesuai button , berikut kodingannya;

   procedure TForm1.Button1Click(Sender: TObject);
   begin
   FORM1.Caption :='MERAH';
   FORM1.Color :=CLRED;
   end;

   procedure TForm1.Button2Click(Sender: TObject);
   begin
   FORM1.Caption :='BIRU';
   FORM1.Color :=CLBLUE;
   end;

   procedure TForm1.Button3Click(Sender: TObject);
   begin
   FORM1.Caption :='HIJAU';
   FORM1.Color :=CLGREEN;
   end;

   procedure TForm1.Button4Click(Sender: TObject);
   begin
   FORM1.Caption :='KUNING';
   FORM1.Color :=CLYELLOW;
   end;

   procedure TForm1.Button5Click(Sender: TObject);
   begin
   APPLICATION.Terminate
   End;
   end.

Sekian cara merubah warna dengan menekan button pada aplikasi Borland Delphi,cukup mudah
kan? Semoga bermanfaat bagi teman-teman yang sudah mencoba.