image1.Width :=128;
image1.Height :=18;
with image1.Canvas do
begin
brush.Color :=clblack;
fillrect(cliprect);
end;
image1.Canvas.Font.Size :=12;
image1.Canvas.Font.Color :=clred;
image1.Canvas.TextOut(0,0,'写入画布');
image1.Picture.SaveToFile('c:/0000.jpg');