Ladda combobox

När jag fyller en combobox med en string, hur gör jag för att he varje post ett eget id,

I Visual Basic skriver man ju:

cmbText.AddItem "Chien Lieu"
cmbText.ItemData(List1.NewIndex) = 52855

men hur gör man i delphi ? jag bifogar lite kod:

---------------------------------------------------------------------------------
while not DataModule2.qryHamtaUppgifter.EOF do
begin
cmbText.Items.Add('blaha');

DataModule2.qryHamtaUppgifter.Next;

end;

cmbText.ItemIndex := 0;
---------------------------------------------------------------------------------