Verificar se nome ja esta cadastrado

procedure Tcad_equipamento.SpeedButton2Click(Sender: TObject);
begin

If (DBEdit1.Text = DataModule2.ADOTable_cad_equipamentoEQUIPAMENTO.Value) Then
Begin

 showmessage ('Equipamento ja cadastrado');
 end
 else
 Begin

DataModule2.ADOTable_cad_equipamento.Post;
end;
end;

Bom Dia pessoal

Estou querendo verificar se o que foi digitado ja existe na tabela

Meu código ficou assim. . . .

procedure Tcad_equipamento.SpeedButton2Click(Sender: TObject);
begin

If (DBEdit1.Text = DataModule2.ADOTable_cad_equipamentoEQUIPAMENTO.Value) Then
Begin

 showmessage ('Equipamento ja cadastrado');
 end
 else
 Begin

DataModule2.ADOTable_cad_equipamento.Post;
end;
end;

Mas não esta funcionando . . ..

Obrigado galera