Agregar texto con canvas a Timage

[[Caral]]

Hola
Tal vez esto te de alguna idea.
Es un ejemplo sencillo.

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
 var
  AnteriorBkMode: integer;
begin
 with Image1.Canvas do begin
  Brush.Color := clRed;
  TextOut(5, 350, 'Fecha de entrada');
  AnteriorBkMode := SetBkMode(Handle, TRANSPARENT);
  TextOut(5, 380, Edit1.Text);
  SetBkMode(Handle, AnteriorBkMode);
end;
end;

Saludos