x := ' '; 
y := ' '; 
 str:= Socket.ReceiveText; 
 for i:=1 to Length(str) do begin 
 
 if str[i] <> '_' then x:= x + str[i]; 
 
 if str[i] = '_' then Break; 
 
 end; 
 
 for j:= i+1 to Length(str) do y:= y+str[j]; 
 
 SetCursorPos(StrToInt(x), StrToInt(y));

procedure TForm1.Timer1Timer(Sender: TObject); 
var Mous:Tpoint; 
begin 
GetCursorPos(Mous); 
ServerSocket1.Socket.Connections[0].SendText(IntToStr(Mous.X)+'_'+IntToStr(Mous.Y)); 
end;

//на сервере 
procedure TForm1.FormClick(Sender: TObject); 
 var Mous:Tpoint; 
 begin 
GetCursorPos(Mous); 
ServerSocket1.Socket.Connections[0].SendText('l'+IntToStr(Mous.X)+'_'+IntToStr(Mous.Y)); 
end;

if str[1]='l' then begin 
 for i:=2 to Length(str) do begin 
 
 if str[i] <> '_' then x:= x + str[i]; 
 
 if str[i] = '_' then Break; 
 
 end; 
 
 for j:= i+1 to Length(str) do y:= y+str[j]; 
 
 
 
 SetCursorPos(StrToInt(x), StrToInt(y)); 
 
mouse_event(MOUSEEVENTF_LEFTDOWN, StrToInt(x), StrToInt(y), 0, 0); 
mouse_event(MOUSEEVENTF_LEFTUP, StrToInt(x), StrToInt(y), 0, 0);

mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RightDOWN, StrToInt(xx), StrToInt(yy), 0, 0); 
 mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, StrToInt(xx), StrToInt(yy), 0, 0);