[Kristofer]

Имею на форме ListView1, в котором получаю список файлов

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  ListItem: TListItem;
  sr: tsearchrec;
begin
  if FindFirst('*.txt', faAnyFile - faDirectory - faVolumeId, sr) = 0 then
  begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := sr.name;
    while FindNext(sr) = 0 do
    begin
      ListItem := ListView1.Items.Add;
      ListItem.Caption := sr.name;
    end;
    FindClose(sr);
  end;
end;

кликаю по имени файла, таким образом выбирая его, а вот как получить имя выбранного файла?
чтобы, затем, приравнять к переменной.

и второй вопрос немного не потеме, как вывести в ListView файлы без расширений, т.е. только имена файлов?

спасибо