Du könntest die Objects-Eigenschaft von TStrings (also auch TComboBox.Items) missbrauchen, um dort den Primärschlüssel der Lookup-Tabelle abzulegen. Das müsste etwa so funktionieren:
Delphi-Quellcode:
DeineComboBox.Items.BeginUpdate;
try
DeineComboBox.Items.Clear;
Query.SQL.Text := '
SELECT ID, Bezeichnung FROM Tabelle2 ORDER By Bezeichnung';
Query.Open;
while not Query.EOF
do
begin
DeineComboBox.Items.AddObject(
Query.FieldByName('
Bezeichnung').AsString, TObject(
Query.FieldByName('
ID').AsInteger));
Query.Next;
end;
finally
DeineComboBox.Items.EndUpdate;
end;
Um nun and die hinterlegte ID zu gelangen, castest Du eben wieder zurück.
ID := integer(DeineComboBox.Items.Objects[DeineComboBox.ItemIndex]);