美丽渐变色的Form

一直都非常喜欢渐变色的界面，但是没想到漂亮的渐变Form原来这么简单。。。实在是没想到。。。看来我不仅技术水平低，脑袋里的创意也是空空如也。。。

-----------------------------------------------------------------------------

procedure TForm1.FormClick(Sender: TObject);
var
  i,FormWidth:Integer;
  Dct:TRect;
begin
  FormWidth:=Form1.Width;
  for i:=0 to 255 do
  begin
    Canvas.Brush.Color:=RGB(0,i,255);
    Dct:=Rect(0,i,FormWidth,(i+1)*2);
    Canvas.FillRect(Dct);
  end;
end;

注意，这样野蛮自绘Form会把界面上所有控件都会遮住。