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