Sencillamente puedes usar la propiedad ItemIndex del DBComboBox y hacer esto:
Código Delphi
[-]var Nombre:String;
begin
if DBComboBox1.ItemIndex > -1 then Nombre:=DBComboBox1.Items[DBComboBox1.ItemIndex];
end;
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7