Verificando se o registro já existe

Procedure TF_Cliente.EditCodExit(Sender: TObject);
begin
qryPesq.Close;
qryPesq.SQL.Clear;
qryPesq.SQL.Add('Select Codigo from Clientes where Codigo = ' + EditCod.Text ) ;
qryPesq.Open;

if qryPesq.RecordCount <> 0 then
begin
MessageDlg('Código já Cadastrado!!!',mtWarning,[mbOK],0);
EditCod.SetFocus;
end;
end;