TCombobox - Problem mit AddObject

[meggles]

Hallo,
ich möchte eine Combobox mit Addobject füllen - das Object ist ein Zeiger auf

Delphi-Quellcode:

  TKontakt = record
             Name : string;
             Adresse : string;
  end;

Das ganze sieht vereinfach so aus:

Delphi-Quellcode:

var vKontakt : ^TKontakt;
begin
    while not IBQ_Adressen.Eof do
    begin
      new(vkontakt);
      if fGueltigeEmail(IBQ_Adressen.fieldbyname('f1').AsString) then
      begin
        vKontakt^.Adresse := IBQ_Adressen.fieldbyname('f1').AsString;
        vKontakt^.Name := IBQ_Adressen.fieldbyname('f2').AsString;
      end;
      CB.Items.AddObject(IBQ_Adressen.fieldbyname('f1').AsString,TObject(vkontakt));
      IBQ_Adressen.Next;
    end;
end;

Ich bin mir nicht ganz sicher, ob ich diese Zuweisung (Casting mit TObject) so machen kann. Ich hab das schon in anderen Beiträgen so gelesen, aber Zweifel kommen mir doch, wenn ich versuche die Daten auszulesen:
      ShowMessage(CB.Items.Objects[0].*wasmachichhier?*); Wäre toll, wenn Ihr mir da helfen könntet!
Danke,
Simon

[teebee]

Ich denke, so sollte der Typcast beim Auslesen aussehen:ShowMessage(TKontakt(CB.Items.Objects[0]).Name); Gruß, teebee

[meggles]

Danke, ich hab da einen ganz braucbaren Link gefunden:
...Records an TStrings (TTreeview / TListview) anhängen?

Der löst mein Problem.
Danke Euch!

[teebee]

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]

[meggles]

Danke Dir!