Загрузка текста в Memo

[quarty]

У меня есть ListBox, кнопка и Memo.
Вот действие для загрузки задонного файла в Memo

var
sl : TstringList;
begin
sl := TstringList.Create;
try
sl.LoadFromFile('file.txt');
Memo1.SetSelTextBuf(PChar(sl.Text)) ;
finally
sl.Free;
end;

как сделать чтоб вместе file.txt открывало значение ListBox1.Items
Заранее спасибо

[Пепел Феникса]

может проще так:

Memo1.Lines.LoadFromFile('file.txt');

?
ну а по вопросу:

Memo1.Lines.Append(ListBox1.Items);

[quarty]

делаю событие

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Append(ListBox1.Items);
end;

но ошибка

[Stilet]

Memo1.Lines.AddStrings(ListBox1.Items);

[quarty]

Сообщение от Stilet

Memo1.Lines.AddStrings(ListBox1.Items);

Она выводит список Items в Listbox1, а мне надо содержимое файла

[Пепел Феникса]

Memo1.Lines.LoadFromFile('file.txt');

вот же писал уже про содержимое файла.

а вообще вы то пишете что надо файл, то пишете что надо листбокс.

[quarty]

Сообщение от Пепел Феникса

Memo1.Lines.LoadFromFile('file.txt');

вот же писал уже про содержимое файла.

а вообще вы то пишете что надо файл, то пишете что надо листбокс.

Извените может не понятно написал, но мне нужно вот что:
В значении Items в Listbox например:

files.txt
edit.txt
open.txt
memo.txt

и вот как сделать чтоб вместо file.txt оно подставляла значения ListBox.Items.

[Пепел Феникса]

вот так бы и сказали.
на кнопке пишем:

if ListBox1.ItemIndex<0 then exit;
Memo1.Lines.LoadFromFile(ListBox1.Items[ListBox1.ItemIndex]);

теперь по нажатию кнопки в мемо загрузить файл имя которого возьмет с выделенной строки из ListBox

[quarty]

Пепел Феникса,
Спасибо огромное