Campos unicos al introducir

[ecfisa]

Hola sisne.
No sé que componente usas para ingresar los datos, si es con un TEdit esto podría ser una opción:

procedure TForm1.Edit1Exit(Sender: TObject);
begin 
  with IBQry do
  begin
    SQL.Text:= 'SELECT * FROM MISDATOS WHERE NOmbres = ' + QuotedStr(Edit1.Text);
    Open;
    if not IsEmpty then
    begin
      MessageDlg('NOMBRE EXISTENTE',mtError,[mbOk],0);
      //...
      //...
    end
  end
end;

Si lo que usas es un TDBEdit, podrías capturar el evento OnSetText del campo asociado
para verificar su existencia.

procedure TForm1.IBDSetNombreSetText(Sender: TField; const Text: String);
var
  Nombre: string;
begin
  Nombre:= Text;
  with IBQry do
  begin
    Close;
    SQL.Text:= 'SELECT * FROM MISDATOS WHERE NOmbres = '+QuotedStr(Nombre);
    Open;
    if not IsEmpty then
    begin
      MessageDlg('NOMBRE EXISTENTE',mtError,[mbOk],0);
      //...
      //...
    end
  end
end;

Esto deberías hacerlo para cada campo que quisieras comprobar.

Saludos.