ich denke mal du sendest im Momente einfach einen Text nch dem Aufbau:
'Mein Text irgendwas'
mache daraus bevor du ihn sendest einfach:
#0'Mein Text irgendwas'#0
Bei dem empfangenen Text suchst du dann jeweils nach #0 und nimmst den Text dazwischen. Wenn also mehrere deiner Texte gleichzeitig gesendet werden kannst du diese durch #0 von einander wieder trennen.
Oder noch einfacher, du trennst die Befehle durch einen Zeilenumbruch. Beim Empfang stopfst du dann die Befehle in eine Stringliste und gehst die Items davon durch.
Also den Text bevor du ihn sendest so ändern:
'mein Text irgendwas'#13#10
Beim Empfang dann:
Delphi-Quellcode:
var
befehle: TStringList;
i : Integer;
einzelbefehl: String;
begin
befehle := TStringList.Create();
befehle.Text := EmpfangenerText;
for i := 0 to befehle.count - 1 do
begin
einzelbefehl := befehle.strings[i];
end;
befehle.Free;