ComboItem(Index) laden

[Micha]

Habe folgendes Problem:

Situtation:
Eine ComoboBox mit Werten z. B. 1.1. a), 1.2. a) …
Ein Edit-Feld

Klickt man in das Edit-Feld, so erscheint die ComboBox.
Im OnChange-Ereignis der ComboBox ist folgendes Hinterlegt:

Delphi-Quellcode:

procedure TTaetigkeiten.combo_arpChange(Sender: TObject);
Var
aKopf : PaKopfInfo;
begin
   aKopf := PaKopfInfo(Combo_arp.Items.Objects[Combo_arp.ItemIndex]);
   Fld.Text := Combo_arp.Text;
   ArpId[Fld.Tag] := aKopf^.I0;
   Combo_arp.Visible := False;
end;

Sprich, es wird dann eben der Index-des Eintrages gespeichert.

Wenn ich jetzt nachher nochmal in das Edit klicke und somit die ComboBox erscheint, springt er immer zum Ersten Item.
Ich möchte aber natürlich, dass er mir das Item aufruft, das in dem Edit steht.

Die Items, die in der Combo stehen sind in einer Datenbank gespeichert und das Edit wird auch auch in einer DB gespeichert (gespeichert wird aber nicht der Text, sondern natürlich die ID des Wertes.)

Ich hoffe, ich hab nicht zuwenig Source gepostet und ihr wisst was ich meine.

Kann mir jemand helfen?

Vielen Dank im Voraus.