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

procedure Tform1.SendCommand(Command,Parameter,Parameter1,Parameter2,Parameter3,Parameter4:String);

var Receive: Record Commando: String; Parameter:String; Parameter1:String;
                Parameter2:String;Parameter3:String;Parameter4:String;
end;
begin
  Receive.Commando:= Command;
  Receive.Parameter:= Parameter;
  Receive.Parameter:= Parameter1;
  Receive.Parameter:= Parameter2;
  Receive.Parameter:= Parameter3;
  Receive.Parameter:= Parameter4;
 IF ClientSocket1.Socket.Connected then ClientSocket1.Socket.SendBuf(Receive,SizeOf(Receive))
  else Messagebox(handle,'Mit keinem Server verbunden','Fehler',16);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
 
var Receive: Record Commando:String;Parameter:String;Parameter1:String;
                 Parameter2:String;Parameter3:String;Parameter4:String;
 end;
begin
  Socket.ReceiveBuf(receive,SizeOf(Receive));
  ShowMessage(Receive.Commando);
 ...