[[kuan-yiu]]

En espera de encontrar una solución más satisfactoria tengo esto:

Código Delphi [-]
procedure TfFactProvExt.DBlcbSiglasClick(Sender: TObject);
begin
  if (flagEmpresa) then
    begin
      flagEmpresa := FALSE;
      DBlcbEmpresa.KeyValue := DBlcbSiglas.KeyValue;
      flagEmpresa := TRUE;
    end;
end;

procedure TfFactProvExt.DBlcbEmpresaClick(Sender: TObject);
begin
  if (flagEmpresa) then
    begin
      flagEmpresa := FALSE;
      DBlcbSiglas.KeyValue := DBlcbEmpresa.KeyValue;
      flagEmpresa := TRUE;
    end;
end;

No me gusta demasiado pero por lo menos me permite seguir avanzando con el resto de las cosas.