Alle BMPs eines Verzeichnisses in Listbox auflisten?

[Nonsense]

@Uncle Cracker:

Danke für deine Mühe, aber ich glaube, ich habe mich falsch ausgedrückt
Wie man die Dateinamen auflistet, weiß ich ja.

Delphi-Quellcode:

procedure ListFileDir(Path: string; FileList: TStrings);
var 
  SearchRec: TSearchRec;
begin
  if FindFirst(Path + '*.bmp', faAnyFile xor faDirectory, SearchRec) = 0 then
    repeat
      FileList.Add(SearchRec.Name);
    until
      FindNext(SearchRec) <> 0;

    FindClose(SearchRec);
end;

Das Problem ist, dass neben meinem Eintrag in der ListBox das Bitmap auf 12x12 Pixel erscheinen soll (sowie der Dateiname rechts daneben).

Das ganze möchte ich automatisieren, d.h. es soll selbständig ein Verzeichnis ausgelsen werden und das Bild + Dateiname in die ListBox eingetragen werden.

Momentan mache ich es per:

Delphi-Quellcode:

  CurrentDir := GetCurrentDir;

  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile(CurrentDir + '\bilder\Bitmap1.bmp');

  with ListBoxTiles.Items do
  begin
    AddObject('Bitmap 1', Bitmap);
  end;

(läuft über Style := lbOwnerDrawFixed)

Hat jemand eine Idee?