Cuando se tiene que optener un resultado de tipo string y se tiene el combobox ordenado, se debe relacionar el combobox con el StringList para recuperar los datos de lista
Código Delphi
[-]
var
Lista := TStrings;
Aux:String;
i:Integer;
begin
Lista := TStringList.Create;
i:=0;
with table1 do
while not eof do
begin
Lista.Add(fieldByName('city').asString);
combo.items.addObject(fieldByName('company').asString,
Pointer(i));
inc(i);
next;
end;
end;
aux := Lista[Integer(combo.items.objects[combo.ItemIndex]];
Gracias