Was ich geschrieben habe, geht nur, wenn man statt eines Records eine Klasse verwendet...
Mit einem Record geht es so:
Delphi-Quellcode:
Type TKontakt = Record
(...)
End;
PKontakt = ^TKontakt;
(...)
ShowMessage(PKontakt(CB.Items.Objects[0]).Name);
Gruß, teebee
[edit]Beispiel angefügt[/edit]