Membuat Background RGB di Delphi 7

Pembahasan Kali ini saya akan menunjukan atau membagikan tutorial tentang Membuat Background RGB di Delphi 7 . .. 
Script yang digunakan juga sederhana . . .
Kurang Lebih tampilan seperti dibawah ini :

Jadi setelah di compile (F9) maka akan muncul project seperti image diatas . . ..

caranya adalah Pada object Inspector pilih Onpaint kemudian klik 2X lalu copy script dibawah ini . .. 

script nya anda bisa copy dibawah ini :

//Listing Program

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
var
  Row, Ht: Word;
begin
  Ht:=(ClientHeight+255) div 256;
  for Row:=0 to 255 do
    with Canvas do
    begin
      Brush.Color:=RGB(Row,1,0);
      FillRect(Rect(0,Row*Ht,ClientWidth,(Row+1)*Ht));
    end;
end;