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