Ordner auslesen und Dateien in ListView anzeigen?

[citybreaker]

Hallo,
ich lese einen Ordner aus uns möchte die Dateien in einer TListView anzeigen
und verknüpfen. Dabei soll das Orginal DateiIcon zu sehen sein. Ist das irgendwie
möglich?

Lese zur Zeit flgendermaßen den Ordner aus.

Delphi-Quellcode:

var
  SearchRec: TSearchRec;
begin
  FindFirst(ExtractFilePath(Application.Exename) + '*.*', faAnyFile, SearchRec);
  repeat
    ListBox1.items.add(searchrec.Name);
  until FindNext(searchrec) <> 0;
  findclose(searchrec);
end;

--- Edit ---
Auflisten klappt schonmal weiß nur nicht wie ich die Symbole anzeigenlassen soll.