(Delphi)

[Semiotica]

Здравствуйте. нужно написать программу, которая загружает текст из файла в поле memo, далее каждая строка текста преобразуется в массив. И после рандомно перемешивается и загружается в поле memo2.но проблема в том, что при загрузке в memo2 вопросы просто сплошняком текстом, а не с каждой строки, помогите, пожалуйста разобраться ( нужно в мемо 2 сделать каждый вопрос с новой строки..

procedure TForm1.Button1Click(Sender: TObject);

var
a: array of string;
i,j: integer;
S, sW : String;

begin
SetLength(a, Memo1.Lines.Count);
for i := 0 to Memo1.Lines.Count - 1 do A[i] := Memo1.Lines[i];//текст в массив
Randomize;
for i := 0 to Memo1.Lines.Count -1 do begin
j := Random(Memo1.Lines.Count);
sW := a[i];
a[i] := a[j];
a[j] := sW;
end;

//Формируем новую строку.
S := '';
for i := 0 to Memo1.Lines.Count - 1 do begin
if i > 0 then S := S + ' ';
S := S+ a[i];
end;

//Ответ.
Memo2.Text:=S;

end;

наверное проблема в последней строке.. присваивание идет мемо.текст.. и надо строки .. но не знаю как сделать(

[Hacker19_90]

for i := 0 to Memo1.Count - 1 do
  Memo2.Add(a[i]);

не?

[Semiotica]

вопрос решен, ошибка в коде.. точнее надо было дописать #10#13 в S := S+ a[i]+ #10#13; хотя не корректно работает немного..

Hacker19_90, спасибо за помощь)работает )