1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin

  with (Control as TListBox) do
  begin
    if odSelected in State then
    begin
      Canvas.FillRect(Bounds(Rect.Left +<OffsetBisAnfangHighLight>,    // Offset setzt sich zusammen aus:
                             Rect.Top,                                 // Offset bis Icon + Breite Icon +
                             Rect.Width -<OffsetBisAnfangHighLight>,   // halber Abstand zwischen Icon und Text
                             Rect.Height()));
    end
    else
    begin
      Canvas.FillRect(Rect);
    end;
    Canvas.Draw(<OffsetBisIcon>, Rect.Top, Bitmap);
    Canvas.TextOut (<OffsetBisIcon> +<Iconbreite> +<Abstand bis Text>, Rect.Top +2,
                    ListBox.Items.Strings[Index]);
    if odFocused in State then
    begin
      Canvas.DrawFocusRect(Bounds(Rect.Left, Rect.Top, <OffsetBisAnfangHighLight>, Rect.Height()));
    end;
  end;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

var
  pSmall : PHICON;
  pLarge : PHICON;
  Icon   : TIcon;

begin
  Bitmap := TBitmap.Create(); 

  Icon := TIcon.Create;
  pSmall := AllocMem (2 *SizeOf (PHICON));
  pLarge := AllocMem (2 *SizeOf (PHICON));
  ExtractIconEx (<path/file>, 0, pLarge, pSmall, 2);  // ab [0] 2 Icon-Handle laden
  Icon.Handle := pSmall^;
  Bitmap.Width := 16;
  Bitmap.Height := 16;
  Bitmap.Canvas.Brush.Color := clWindow;        // diese Zeile brachte mit...
  Bitmap.Canvas.FillRect (Bounds(0,0,16,16));   // ...FillRect() den Erfolg
  Bitmap.Canvas.Draw (0,0,Icon);
  :
  :
  FreeMem (pSmall, 2 *SizeOf (PHICON));
  FreeMem (pLarge, 2 *SizeOf (PHICON));
  FreeAndNil (Icon);
end;