我 用如下代码 ，怎么图片上没有我自己写的字呢 ( 积分: 100 )

procedure TForm1.FormPaint(Sender: TObject);
var
Bmp : TBitmap;
begin
Bmp :=TBitmap.Create;
Bmp.Assign(image1.Picture.Graphic);
bmp.Canvas.Brush.Style :=bsClear ;
bmp.Canvas.Textout(10,10,'家庭收支系统');
end;

不写回 Image1中怎么看得到呢？

Bmp :=TBitmap.Create;
Bmp.Assign(image1.Picture.Graphic);
bmp.Canvas.Brush.Style :=bsClear ;
bmp.Canvas.Textout(10,10,'家庭收支系统');
Image1.Picture.Graphic.Assign(Bmp);
Image1.Refresh;

ok