procedure TForm1.FormShow(Sender: TObject);
var
str: string;
int: integer;
f: textfile;
icn: ticon;
const
fname:string='\list.txt';
begin
AssignFile(f,fName);
{$I-}
Reset(f);
{$I+}
if IOResult<>0 then
  begin
    ReWrite(f);
  end else
  begin
    ListBox1.Items.LoadFromFile(fName);
    while not EOF(f) do
      begin
        readln(f,str);
        //как из файла file.exe (путь к файлу - переменная "str") "вытащить" иконку и добавить ее в ImageList1, чтобы использовать  ее в ListView1 (viewstyle:=vsIcon)?
        imagelist1.addicon(icn);
        with listview1.Items.Add do
        begin
          caption:=extractfilename(str);
          ImageIndex:=int;
          listview1.Items.Item[int].SubItems.add(str);
          int:=int+1;
        end;
      end;
  end;
ic_count.Execute;
end;