How To Make A Gradient Filled Form

Show how to paint a form in a different way...

 

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