Nichts für ungut... aber laut meiner bescheidenen Meinung nach sind fehler in deinem Code, habe nun den genommen:
Delphi-Quellcode:
daten := Socket.ReceiveText;
repeat
p := Pos('#10',daten); // Suche nach Befehlstrenner
if p <> 0 then
begin
Status_Nachricht := Copy(daten, 1, p-1); // einzelnen Befehl rausziehen
Delete(daten, 1, p+2); // Befehl aus Puffer löschen
showmessage(Status_Nachricht); // Befehl ausführen
end;
until p=0;