procedure TForm1.Button1Click(Sender: TObject);

var

LRect: TRectF;

begin

LRect.Create(0, 0, 500, 200);

myimage.Bitmap.Canvas.Font.Family:='宋体';

myimage.Bitmap.Canvas.Font.Size:=25;

myimage.Bitmap.Canvas.Fill.Color:=claBlack;

myimage.Bitmap.Canvas.FillText(LRect, 'Delphi XE2 by 小新排骨', True, 255, [],TTextAlign.taLeading,TTextAlign.taCenter);

myimage.Bitmap.BitmapChanged;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

//读取图片

myimage.Bitmap.LoadFromFile('C:\skype.bmp');

end;