1:
2:
3:
4:
5:
6:
7:

if not DXDraw1.CanDraw then begin
    showMessage('DXDraw1 ist nicht zum rendern bereit!');
    Exit;
  end;

  DXImageList1.Items[0].draw(DXDraw1.Surface, 0, 0, 0);
  DXDraw1.Flip;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var
  mx,my:Integer

procedure TForm1.DXDraw1Click(Sender: TObject); 
begin 
  if not DXDraw1.CanDraw then  Exit;  // das mache ich nie
  // was auch nicht sclecht währe:
  DXDraw1.Surface.Fill(0) // sollte das bild schwarz einfährben, also löschen, bevor du was zeichnets:)

  DXImageList1.Items[0].draw(DXDraw1.Surface, mx, my, 0); 
  DXDraw1.Flip; 
end; 

onMouseDown:
  mx:=x;
  my:=y;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DXDraws;

type
  TForm1 = class(TForm)
    DXDraw1: TDXDraw;
    DXImageList1: TDXImageList;
    procedure DXDraw1Click(Sender: TObject);
    procedure DXDraw1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  mx, my: integer;

implementation

{$R *.dfm}

procedure TForm1.DXDraw1Click(Sender: TObject);
begin
  if not DXDraw1.CanDraw then  Exit;  // das mache ich nie
  // was auch nicht sclecht währe:
  DXDraw1.Surface.Fill(0); // sollte das bild schwarz einfährben, also löschen, bevor du was zeichnets:)

  DXImageList1.Items[0].draw(DXDraw1.Surface, mx, my, 0);
  DXDraw1.Flip;
end;

procedure TForm1.DXDraw1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  mx:=x;
  my:=y;
end;

end.