[Rokuell]

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

Код:

var s:string;
begin
 if (ListView1.ItemIndex >= 0) then
  s := ListView1.Items[ListView1.ItemIndex].Caption;
 ShowMessage(s);
end;

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

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  ListItem: TListItem;
  sr: tsearchrec;
begin
  if FindFirst('*.txt', faAnyFile - faDirectory - faVolumeId, sr) = 0 then
  begin
    repeat
     ListItem := ListView1.Items.Add;
     ListItem.Caption := Copy(sr.name,1,Length(sr.Name)-Length(ExtractFileExt(sr.Name)));
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;