Mam taką procedure tylko problem tkwi w tym, że jak chce by przy każdym kliknięciu myszki wysyłało mi namiary nawet jak klikam w innym programie czy po za obszarem prgramu (tego, który wysyła te namiary).

Mam tylko tyle:

var
pozycja : tpoint;
pos : string;
wiadomosc : string;
begin
  GetCursorPos(pozycja);
  pos:=IntToStr(pozycja.x)+'x'+IntToStr(pozycja.y);

 wiadomosc:='ke'+pos;
 ClientSocket1.socket.sendtetd(wiadomosc);