[jonydread]

muchisimas gracias el codigo o no me funciono o no supe ocuparlo pero me has dado una exelente referencia o idea y lo hice así y por separado

Código Delphi [-]
function TMainform.ExisteEnAmbas(aValue: Variant): Boolean;
begin
  with ZQuery1 do
  begin
    Close;
    SQL.Clear;
    sql.Text := 'SELECT * FROM AsignadosA where Sierras = :PVALUE';
    ParamByName('PVALUE').Value := aValue;
    Open;
   if not zquery1.IsEmpty then
   begin
    MessageDlg('Sierra ya se encuentra asignada', mtWarning, [mbOk],0);
     Abort;
      end else
      with ZQuery1 do
  begin
    Close;
    SQL.Clear;
    sql.Text := 'SELECT * FROM AsignadosB where Sierras = :PVALUE';
    ParamByName('PVALUE').Value := aValue;
    Open;
   if not zquery1.IsEmpty then
   begin
    MessageDlg('Sierra ya se encuentra asignada', mtWarning, [mbOk],0);
     Abort;
      end;
  end;
end;
end;

y el llamado

Código Delphi [-]
ExisteEnAmbas(dblookupcombobox1.KeyValue);

Gracias y saludos!!!