如何用某颜色在程序中画一幅背景图， (100分)

某控件没有背景色，却背景图片可以设置。如何用某颜色画一幅图，并将此图作为此控件的背景图，达到设置背景色的功能

没人解答

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
btn1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
fCanvas:Tcanvas;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
fCanvas:=Tcanvas.Create;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
rect:Trect;
hdc:word;
begin
fCanvas.Handle :=GetDc(Btn1.Handle);
Rect:=btn1.ClientRect;
fCanvas.Brush.Color :=clGreen;
fCanvas.TextRect(rect,(rect.Right-rect.left)div 2-7,(rect.Bottom-rect.Top)div 2-7,Btn1.Caption);
end;

end.

用画图画一个,然后设置成背景图阿....

颜色是动态生成的，第一位大侠发的看不懂，我想可能是新建一位图，用某颜色画图，然后再付给此控件的BACKGROUD

BACKGROUD.Height := Height;
BACKGROUD.Width := Width;
BACKGROUD.Canvas.Brush.Color := clRed;
BACKGROUD.Canvas.FillRect(BACKGROUD.ClipRect);