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; AnteriorBkMode := SetBkMode(Handle, TRANSPARENT);
TextOut(X, Y, Edit1.Text);
SetBkMode(Handle, AnteriorBkMode);
end;
end;