I'm sorry, I kind of messed up you post there as I wanted to quote you, but instead I hit the edit button. I was able to save most of it, but the sentence with your system specs got lost.

Quote Originally Posted by spyke00
store i know but check where i clicked... thats the problem =/
Hopefully I can make it up by giving you a solution

Code:
type TMyMouse = record
         x : word;
         y : word;
         clickX : word;
         clickY : word;
         button : TMouseButton;
         pressed : boolean;
     end;

var
  Form1: TForm1;
  myMouse : TMyMouse;

implementation

{$R *.dfm}

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
   form1.DXDraw1.surface.fill(0);
    if myMouse.pressed then
    case myMouse.button of
      mbRight : form1.DXDraw1.Surface.Canvas.TextOut(10,50, 'Right Mouse button clicked at '+inttostr(myMouse.clickX)+', '+inttostr(myMouse.clickY));
      mbLeft  : form1.DXDraw1.Surface.Canvas.TextOut(10,50, 'Left Mouse button clicked at '+inttostr(myMouse.clickX)+', '+inttostr(myMouse.clickY));
      mbMiddle : form1.DXDraw1.Surface.Canvas.TextOut(10,50, 'Middle Mouse button clicked at '+inttostr(myMouse.clickX)+', '+inttostr(myMouse.clickY));
    end;

   form1.DXDraw1.Surface.Canvas.TextOut(10,10, inttostr(myMouse.X)+', '+inttostr(myMouse.Y));
   form1.DXDraw1.Surface.Canvas.release;
   form1.DXDraw1.Flip
end;

procedure TForm1.DXDraw1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     myMouse.button := Button;
     myMouse.clickX := x;
     myMouse.clickY := y;
     myMouse.pressed := true;
end;

procedure TForm1.DXDraw1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     myMouse.x := x;
     myMouse.y := y;
end;

procedure TForm1.DXDraw1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     myMouse.pressed := false;
end;

end.