procedure TNombre.IBQueryCAMPOValidate(Sender: TField);
var
Txt : AsString
begin
IBQueryCheck.SQL.Clear;
IBQueryCheck.SQL.Add('Select * from TABLA');
IBQueryCheck.SQL.Add('where CAMPO = :Txt');
IBQueryCheck.ParamByName('Txt1').AsString := IBQueryCAMPO.Value;
IBQueryCheck.Prepare;
IBQueryCheck.Open;
If not IBQueryCheck.Eof then begin
ShowMessage('Ya existe un registro con ese Clave');
abort;
end;
end;