怎么生成一张纯色位图

Question

 小弟  初学习delphi 怎么生成一张纯色位图。
var
Bmp:Tbitmap;
begin
try
Bmp:=Tbitmap.Create;
Bmp.Width:=100;
Bmp.Height:=100;
Bmp.Canvas.Brush.Color:=clred;
Bmp.canvas.Pen.Color:=clred;
ledrichedit1.BackgroundStyle:=BSstretched;
ledrichedit1.BackgroundBitmap:=Bmp;
finally
Bmp.Free;
end;
这样一来不是纯色的位图 ，我想生成一张纯色位图作为背景。
怎么弄啊 
请各位大虾帮帮忙

Answer 1

Bmp.canvas.Pen.Color:=clred; 
后面加上：
Bmp.Canvas.FloodFill(1, 1, clRed, fsBorder);