IsEmpty com carcteres 1/4 e 1/2

procedure TF_MATERIAIS.descricaoExit(Sender: TObject);
begin
 dm.sdsMaterial.Close;
 dm.sdsMaterial.CommandText:=´select * from MATERIAL ´ +
                             ´where descricao= :descricao´;
 dm.sdsMaterial.ParamByName(´descricao´).AsString:=descricao.Text;
 dm.sdsMaterial.Open;
if not dm.sdsMaterial.IsEmpty then
begin
  ShowMessage(´Descrição já existe para outro material! Tente Outro!´);
  descricao.SetFocus;
  end
end;