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