How to Create a Gradient Filled Form

You can create a gradient filled form to make form that is more beautiful.

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, 100, 0);
FillRect(Rect(0, Row*Ht, ClientWidth, (Row+1) * Ht));
end;
end;

You can change the value of (Row, 100, 0) to suite your preferences.

Example:

(Row, 255, 0) or (Row, 100, 255)

Download: Source Code