[AmNeZiA]

Всем привет, не могу спарсить данные из memo по Edit'ам.
Использую библиотеку superobject, прошу помощи.
Имеется такой текст в memo:

Строка №1
Строка №2
Строка №3
Строка №4

Код:

procedure TForm1.Button7Click(Sender: TObject);

var
  obj1: ISuperObject;
   post:tstringlist;
   result:string;
   cJSON:string;
begin
cJSON:=memo1.text;
  obj1 := SO(cJSON);
   edit1.Text:= obj1.S['adventures.list[0].Строка №1'];
  edit2.Text:= obj1.S['adventures.list[1].Строка №2'];
  edit3.Text:= obj1.S['adventures.list[2].Строка №3'];
  edit4.Text:= obj1.S['adventures.list[3].Строка №4'];
end;

Помогите раскинуть по Edit'ам.
Спасибо за помощь!

[M.A.D.M.A.N.]

Так?

Код:

   edit1.Text:= memo1.lines[0];
  edit2.Text:= memo1.lines[1];
  edit3.Text:= memo1.lines[2];
  edit4.Text:= memo1.lines[3];