Integridad sobre un campo que puede ser NULL

[[gluglu]]

Código Delphi [-]
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;