Combobox con indice y valor

[Stereo100]

Por si a alguien le puede servir , en lazarus para cargar el combobox con un item y su valor correspondiente de una BD se hace así:

Código Delphi [-]
    Combobox1.Clear;
    SQLQuery1.SQL.Text := 'SELECT * FROM users';
    SQLQuery1.Open;
    while not SQLQuery1.EOF do
    begin
      Combobox1.Items.AddObject(SQLQuery1.FieldByName('UserName').AsString, TObject(SQLQuery1.FieldByName('ID').AsInteger));
      SQLQuery1.Next;
    end;
    SQLQuery1.Close;

Luego para recuperar el ID según el item elegido del combobox1 se hace:

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  ShowMessage('el ID es: '+inttostr(Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex])));
end;

Y para una vez cargado los valores en el combobox1 deseamos comenzar con el primer item seleccionado, podemos usar este code:

Código Delphi [-]
ComboBox1.ItemIndex:=0;

Usando Lazarus 1.6 (32bits) + Win8.1x64 + Sqlite
Saludos hermanos