Tratar inclusão de registros.

quais os componentes que você está usando para acesso aos dados?

dtmAdministracao.(Nome da tabela ou Query).Locate(´NomeDoCampo´, NomeAProcurar,[loCaseInsensitive,loPartialKey]);

Espero q seja isso!

Insira a variavel wCodAnt no inserir como wCodAnt := ´´;
no alterar como:
wCodAnt := Dados.HCadBan.FieldbyName(´Cod´).AsString;


Procedure TFormTabelaBan.Edit1Exit(Sender: TObject);
Var wTeste, wIndAnt: String;
Var wRecno: Integer;
Var wModoAnt: TDataSetState;
Begin
wTeste := Edit1.Text;
wIndAnt := tabela.IndexName;
wModoAnt := tabela.State;
wRecno := Tabela.RecNo;

If wCodAnt <> wTeste Then Begin
tabela.IndexName := ´CadBan1´;
tabela.FindKey([wTeste]);

If wTeste = tabela.FieldByName(´Cod´).AsString Then Begin
ShowMessage( ´Atenção !!! Código já Existe !!!´);
tabela.IndexName := wIndAnt;
BCancClick(Action);
Abort;
End;
End;

tabela.IndexName := wIndAnt;
tabela.RecNo := wRecno;
If wModoAnt = DsInsert then
tabela.Insert;
If wModoAnt = DsEdit then
tabela.Edit;
End;

Não tenho certeza de que o código funcionará, esse código foi desenvolvido por um colega de trabalho meu, e pode ser que de falta de alguma variavel.

Estou usando uma table.

[b:523bb68c0a]CORRIGINDO[/b:523bb68c0a]

(Nome do Data Module, se nao tiver usando um nao poe nada).(Nome da tabela ou Query).Locate(´NomeDoCampo´, NomeAProcurar,[loCaseInsensitive,loPartialKey]);