ComboBox mit mehreren Spalten?

[Ykcim]

Hallo Zusammen,

der Threat ist zwar schon älter, aber vielleicht kann mir trotzdem jemand einen Tip geben.

Ich habe es folgendermaßen umgesetzt:

Delphi-Quellcode:

while not Query.Eof do begin
      if not Query.FieldByName(Spalte_sichtbar).IsNull then begin
         Wert:=Query.FieldByName(Spalte_Unsichtbar).AsString;
         ComboBox.Items.AddObject(Query.FieldByName(Spalte_sichtbar).AsString, TObject(Wert));
      end;
      Query.Next;
   end;

Im OnChange Procedure wollte ich den Wert dann in ein Editfeld schreiben und habe es so versucht:

Edit_Abteilung_ID.Text:=String(Combo_Abteilung.Items.Objects[Combo_Abteilung.ItemIndex]);

Leider wird dann nur so ein komisches Zeichen in das Editfeld geschrieben (wie ein L falschherung, Schenkel zeigt nach links).

Wenn ich es debuggere, dann bekomme ich immer den Wert #4.

Kann mir jemand sagen, was ich falsch mache?

Vielen Dank
Patrick