Listbox.items и имя файла

[L3zh1Y]

ЗДравствуйте, такая проблема...
Имеется Listbox со строками, и файлы с такими же именами внешне(строка listbox Олег, и файл внешний с таким же именем), в котором храниться информация. Как мне прописать путь к выделенному фалу и чтобы он его у меня открывал. Уже сколько пытаюсь, не получается. Вот код:

procedure TForm4.Button1Click(Sender: TObject);
var f:TextFile;
    i:integer;
    s,s1:string;
begin
//for i:=0 to form1.listbox1.count-1 do
if form1.ListBox1.Selected[i] then
  begin
    AssignFile(f,'users\'+{путь к файлу}+'.txt') ;
    reset(f);
    readln(f,s);
    CloseFile(f);
  end;
  if Edit1.Text=s1 then form3.show;
end;

[Vladilen]

Ты имеешь ввиду считать из листбокса выделенный элемент?

P:String;
P := ListBox1.Items[ListBox1.ItemIndex];
AssignFile(f,'users\'+P+'.txt') ;