Hola amigo Carlos, por el momento está en BETA, pero para ser chapuza anda:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var bmp: TBitmap;
begin
bmp := TBitmap.Create;
bmp.Height := 100;
bmp.Width := 100;
Image1.Picture.Bitmap.Assign(bmp);
end;
Código Delphi
[-]procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
XX := X;
YY := Y;
end;
Código Delphi
[-]procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Picture.Bitmap.Canvas.Font.Size := 15;
Image1.Picture.Bitmap.Canvas.Font.Color := clRed;
Image1.Picture.Bitmap.Canvas.TextOut(XX,YY,'X');
end;
recuerda que para que funcione esto debe ser un bitmap. Y que debe tener alguno asignado.
Saludos,