проблема с массивом

[Lonix]

у меня допустим в listbox1 есть пути к файлам txt, я их хочу загрузить по очереди в memo, т.е. загрузить их содержимое. как это сделать?
Проблема в том что путей в listbox много, и если указать listbox1.Items[1] то загрузится только один файл txt в memo а мне надо чтобы загрузились все файлы txt указаные в listbox, как так можно сделать? через масивы или как? чтобы по очереди сам автоматически переберал все пути и загружал по ним txt файлы в memo.

procedure TForm2.Button1Click(Sender: TObject);
var
i: string;
begin
Memo1.lines.loadfromfile('listbox1. Items[i]);
end;

[Alter]

[CODE]

procedure TForm1.Button2Click(Sender: TObject);
Var I :Integer;
Lst :TStrings;
begin
Memo1.Lines.Clear;
Lst := TStringList.Create;
try
For I:=0 To ListBox1.Items.Count-1 Do
begin
Lst.Clear;
Lst.LoadFromFile( ListBox1.Items.Strings[I] );
Memo1.Lines.AddStrings( Lst );
end;
finally
Lst.Free;
end;
end;

[CODE]

[Lonix]

Спасибо! работает