Escribir en un componente Image

[[Caral]]

Hola
Lo que tengo:

Código Delphi [-]
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var AnteriorBkMode: integer; 
begin 
Drawing := True; Image.Canvas.MoveTo(X, Y);
 Origin := Point(X, Y); MovePt := Origin; 
with Image.Canvas do 
begin Brush.Color := clRed; // TextOut(X, Y, Edit1.Text);
AnteriorBkMode := SetBkMode(Handle, TRANSPARENT);
TextOut(X, Y, Edit1.Text);
SetBkMode(Handle, AnteriorBkMode);
end;
end;

Saludos