求教：怎么把用canvas画出的图形保存为.bmp文件？谢谢!(100分)

如题。

procedure TForm1.Button1Click(Sender: TObject);
var
bmp: TBitmap;
begin
bmp := TBitmap.Create;
bmp.Width := ClientWidth;
bmp.Height := ClientHeight;
bmp.Canvas.CopyRect(ClientRect,Canvas,ClientRect);
bmp.SaveToFile('c:/aaa.bmp');
bmp.Free;
end;

agree

搞掂!多谢zw84611大虾!
100分奉上，请笑纳!