introducir texto en imagen

[FabianSiza]

hola Gracias pero ya habia pensado eso y ya los habia puesto al frente logre exportar un texto con la imagen pero con otra forma con este codigo

Código Delphi [-]
procedure TForm2.Button2Click(Sender: TObject);
var
  AnteriorBkMode: integer;
  texto:string;
begin
  with Image12.Canvas do begin
    Brush.Color := clRed;
    TextOut(1000, 1000, texto);
    AnteriorBkMode := SetBkMode(Handle, TRANSPARENT);
    TextOut(350, 380, Edit1.Text);

pero es mas tedioso y solo funciona con imagenes .bmp y no se como hacerlo con los Tshape -_-