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

procedure TForm1.btnMousectrClick(Sender: TObject);
var MousePos : TPoint;
begin
  lbMousectr.caption := 'Mousecontroling is activated';
  Repeat
  MousePos := Mouse.CursorPos;
  Client.Socket.SendText(INTtoSTR(MousePos.x + MousePos.y));
  until lbMousectr.Caption = 'No Controling';
end;

procedure TForm1.btnStopMousectrClick(Sender: TObject);
begin
  lbMousectr.Caption := 'No Controling';
end;					

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

procedure TForm1.btnMousectrClick(Sender: TObject);
var MousePos : TPoint;
begin
  lbMousectr.caption := 'Mousecontroling is activated';
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if lbMousectr.caption = 'Mousecontroling is activated' then begin
    Client.Socket.SendText(INTtoSTR(x) + ',' + INTtoSTR(y));
  end;
end;

procedure TForm1.btnStopMousectrClick(Sender: TObject);
begin
  lbMousectr.Caption := 'No Controling';
end;					

1:

SetCursorPos(STRtoINT(RecText));  //RecText = der erhaltene Text					

1:

Client.Socket.SendText(INTtoSTR(x) + ',' + INTtoSTR(y));					

1:
2:

t := '320,240';
SetCursorPos(strtointdef(copy(t,1,pos(',',t)-1),0),strtointdef(copy(t,pos(',',t)+1,length(t)),0));