[Booo]

Спасибо ...
Я сделал вот так вот

Код:

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

var s:string;  t: TStringList;   begin s:=socket.ReceiveText; t := TStringList.create;  t.text := stringReplace(s, ' ', #13#10,   [rfReplaceAll]);   edit1.Text:=t[0];   edit2.Text:=t[1];   edit4.Text:=t[2];   edit5.Text:=t[3];   edit6.Text:=t[4];   edit7.Text:=t[5]; t.free