//Canvas 在Image控件中绘制文字 procedure TForm1.Button1Click(Sender: TObject);begin image1.Canvas.Font.Size:= 72; //设置文字大小 image1.Canvas.TextOut(1,1,'Delphi'); //输出文字end;