[loquillo3]

Empezado por ecfisa

Hola loquillo3.

Si no te interpreté mal, esto tendría que funcionarte:

Código Delphi [-]
procedure TForm1.DBCedula2Exit(Sender: TObject);
begin
  with DataModule1.qCedula2 do
  try
    Close;
    ParamByName('PCEDULA').AsString := DBCedula2.Text;
    Open;
    if not isEmpty then
    begin
      MessageBox(Self.Handle, 'Cédula existente', '', MB_ICONERROR + MB_OK);
      DBEdit1.SetFocus;
      Abort
    end
  finally
    Close
  end;
end;

Saludos.

ecfisa, unos de los errores me lo da en el ParamByName en cierto modo no me reconoce ese comando, pero intentare con el que me has dado