Bild von TImage in TListView verwenden

[Viktorii]

Okay, Add hatte ich zwar gefunden, aber auf das zu TBitmap zuweisen bin ich nicht bekommen.

Nun bekomme ich aber Trotzdem noch einen Fehler:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt CRM.exe ist eine Exception der Klasse EInvalidOperation mit der Meldung 'Ungültige Bildgröße' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

Delphi-Quellcode:

  lBitmap       : TBitmap;

begin
  lBitmap := FPerson.Bild.Bitmap;

  ImageListFahrer.Add(lBitmap, lBitmap);  // <-- Fehler hier.

  ListItem := TListItem.Create(ListViewPerson.Items);
  ListItem.SubItems.Add(FPerson.Name);
  ListViewPerson.Items.AddItem(ListItem);

Deswegen habe ich meine Quelltest intuitiv so erweitert:

Delphi-Quellcode:

  lBitmap       : TBitmap;

begin
  lBitmap := FPerson.Bild.Bitmap;

  lBitmap.Width := 35;
  lBitmap.Height := 35;

  ImageListFahrer.Add(lBitmap, lBitmap);  

  ListItem := TListItem.Create(ListViewPerson.Items);
  ListItem.SubItems.Add(FPerson.Name);
  ListViewPerson.Items.AddItem(ListItem);

Kommt zwar kein Fehler mehr, aber anstatt des Bildes wird nur eine weisse Fläche dargestellt? Wat mach ich denn nu?