Código Delphi [-] CmbLook.KeyValue:=Adoquery1.FieldByName('clave').AsString;
CmbLook.KeyValue:=Adoquery1.FieldByName('clave').AsString;