Listbox: Bilder dem Text voranstellen

[Manne]

Servus,

wie schon Keldorn geschrieben hat, gibts du das Bitmap gleich wieder frei.
Zudem lädst dunie ein Bitmap in dein Bilder-Array rein.
Es sollte ungefähr so aussehen

Delphi-Quellcode:

procedure TfImport.bHinzufuegenClick(Sender: TObject); 
begin 
  if not OpenPictureDialog1.Execute then 
         exit;
 with OpenPictureDialog1 do 
    for i := 0 to Files.Count - 1 do 
      begin 
       if Bilder[i] = nil then
        Bilder[i]:= TBitmap.Create; 
        Bilder[i].PixelFormat:= pf24Bit;
        Bilder[i].Width:= 50; 
        Bilder[i].Height:= 35; 
        Bilder[i].LoadFromFile(Files.Strings[i]);
        lbBilder.Items.AddObject(Files.Strings[i], TObject(Bilder[i])); 
      end;
end;

Edit: Fehler korrigiert, s.u.