Delphi работа с Listbox

[v.v.veter]

Есть база данных, в ней происходит поиск, все найденные результаты вносяться в листбокс.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Adoquery1.SQL.Text := 'Select * from poisk where Slova like '+QuotedStr('%'+Trim(Edit1.Text)+'%');
  Adoquery1.Open;
  ShowMessage('количество записей в выборке: '+IntToStr(ADOQuery1.RecordCount));
  while Not Adoquery1.EOF do begin
    ListBox1.Clear;
    ListBox1.Items.add(Adoquery1.FieldByName('Mesto').AsString);
    Adoquery1.Next;
  end;
  end;

в итоге в лист боксе примерно такой вид

C:\Users\Veter\Desktop\Новый текстовый документ.txt
C:\Users\Veter\Desktop\Новый текстовый документ2.txt
C:\Users\Veter\Desktop\пример.txt
C:\Users\Veter\Desktop\разное.txt

нужно чтобы при нажатии на одину из этих строк, открывался фаил(имя файла и есть эта строка)
То есть если клацнуть по первой строке
C:\Users\Veter\Desktop\Новый текстовый документ.txt
откроется файл (C:\Users\Veter\Desktop\Новый текстовый документ.txt)
Помогите это сделать. Заранее спасибо.

[Valio]

Открывают обычно через ShellExecute.

[v.v.veter]

Спасиб, так сделал.

procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(Handle,'open',PChar(form1.ListBox1.Items.Strings[form1.ListBox1.ItemIndex]),nil,nil,SW_SHOW)
end;