in ListView jedem SubItem eine Schriftart setzen

[Mazel]

Hallo,

ich zeige in einem ListView bei dem der ViewStyle auf vsReport gestellt ist in der ersten Spalte alle Schriftarten an. In der zweiten Spalte steht die Auflösung der Schriftart. Nun wollte ich in der dritten Spalten (SubItem[1]) jedem Item die entsprechende Schriftart setzen. Ich habe es schon mit CustomDrawSubItem versucht aber so funktioniert es leider nicht:

Delphi-Quellcode:

procedure TMain.LVwInfosCustomDrawSubItem(Sender: TCustomListView;
 Item: TListItem; SubItem: Integer; State: TCustomDrawState;
 var DefaultDraw: Boolean);
begin
 Sender.Canvas.Font.Name := Item.Caption;
end;

Kennt jemand eine Lösung?

Gruß
Mazel