FillRect
函数功能：该函数用指定的画刷填充矩形。
用法：//Delphi自带的帮助
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(‘R9.bmp‘);
Form1.Canvas.Brush.Bitmap := Bitmap;
Form1.Canvas.FillRect(Rect(0,0,100,800));
finally
Form1.Canvas.Brush.Bitmap := nil;
Bitmap.Free;
end;
end;
Delphi Canvas的FillRect(const Rect: TRect) 函数的作用
原文：http://www.cnblogs.com/delphi-xe5/p/5397539.html