Delphi 如何在Image图片上添加文字

var
  MyCanvas1 : TControlCanvas;
Begin
  MyCanvas1:=TControlCanvas.Create;
  try
    Mycanvas1.control:=img1;
    MyCanvas1.StretchDraw(img1.clientRect,img1.Picture.Bitmap);


    MyCanvas1.Brush.Style :=bsClear;
    MyCanvas1.Textout(40,60,'这里添加文字');
  finally
    MyCanvas1.Free;
  end;
end;

位置根据自己需要调整