[Booo]

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

Код:

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