Fórum Melhoramento cadastros duplicados [Delphi]. #523606

Bom, até então estava com diversas dificuldades com cadastro duplicados e depois de várias tentativas, encontrei uma forma de solucionar o problema de forma bem simples!
Vi na internet diversos tutoriais e nenhuma solução em diversos fóruns, por isso resolvi postar isto mesmo em forma de pergunta.
Exemplo de como fiz: (adaptar conforme o componente utilizado):

procedure TFrCadCidade.DBEnomeExit(Sender: TObject);
begin
if (DMdados.IBSsearch.SQL.Add('Select * From CIDADES Where CID_NOME =' + DBEnome.Text + '') > 1) then
begin
MessageDlg('Existe um cadastro com o mesmo nome. Verifique!', mtWarning, [mbOK], 0);
end;
end;

Como estou usando um IBTable pra inserir o registro tenho que por ele maior que 1, caso contrário daria pra utilizar em um campo Edit como igual a 1 então
ficaria assim:

procedure TFrCadCidade.DBEnomeExit(Sender: TObject);
begin
if (DMdados.IBSsearch.SQL.Add('Select * From CIDADES Where CID_NOME =' + DBEnome.Text + '') = 1) then
begin
MessageDlg('Existe um cadastro com o mesmo nome. Verifique!', mtWarning, [mbOK], 0);
end;
end;

Bom, espero ter sido útil para iniciantes ou pessoas que encontrem dúvidas nessa questão de validação do cadastro, ou seja, resolva este problema!