[ecfisa]

Hola.

Otra opción similar es almacenar nombre_usuario como la cadena, y el id_usuario como entero aprovechando la función AddObject de TStrings.

Código Delphi [-]
...
   CBOX4.Items.AddObject(DataModule1.FDQCBOX_EST_TUR2.FieldByName('nombre_usuario').AsString,
                 TObject(DataModule1.FDQCBOX_EST_TUR2.FieldByName('id_usuario').AsInteger));
...

Y para recuperar el valor del ID del usuario,

Código Delphi [-]
procedure TForm1.CBOX4Change(Sender: TObject);
var
  id : Integer;
begin
  id := Integer(CBOX4.Items.Objects[CBOX4.ItemIndex]);
  ...
end;

Saludos