Alterar registro - Delphi

procedure TFormCadastroClientes.Action3Execute(Sender: TObject);
begin
{
-->Botao Alterar

}
DmDados.QClientes.Edit;
DBEdtCodCli.DataSource := DmDados.DsClientes;
DBEdtNomeRazaoSocial.DataSource := DmDados.DsClientes;
DBEdtCPFCNPJ.DataSource := DmDados.DsClientes;
DBEdtSeguimento.DataSource := DmDados.DsClientes;
DBEdtDatCadastro.DataSource := DmDados.DsClientes;
DBEdtSite.DataSource := DmDados.DsClientes;
DBEdtEmail.DataSource := DmDados.DsClientes;
DBEdtTelefone.DataSource := DmDados.DsClientes;
DBEdtTel2.DataSource := DmDados.DsClientes;
DBCBNdeFuncionarios.DataSource := DmDados.DsClientes;
DBEdtDatTerminoContrato.DataSource := DmDados.DsClientes;
DBEdtRespEmpresa.DataSource := DmDados.DsClientes;
DBEdtEndereco.DataSource := DmDados.DsClientes;
DBEdtBairroDistrito.DataSource := DmDados.DsClientes;
DBEdtCEP.DataSource := DmDados.DsClientes;
DBEdtUF.DataSource := DmDados.DsClientes;
DBEdtCidadeMunicipio.DataSource := DmDados.DsClientes;
DBCBTipoCliente.DataSource := DmDados.DsClientes;
DBEdtFuncao.DataSource := DmDados.DsClientes;
DBCBOperFunc.DataSource := DmDados.DsClientes;
DBEdtCodOperFunc.DataSource := DmDados.DsClientes;

var
I : Integer;
S : String;
Cod : Integer;
begin
{Ao clicar no botão "Salvar"

}



{Verificando CAMPOS VAZIOS do Cadastro de Clientes (SIMPLES)}
  if DBEdtCodOperFunc.Text = '' then
 begin
 ShowMessage ('Preencha o campo código do operador/funcionário');
 cont := 1;
 DBEdtCodOperFunc.SetFocus;
 end else
  if DBCBOperFunc.Text = '' then
 begin
 ShowMessage ('Selecione o nome do operador/funcionário');
 cont := 1;

 end else
  if DBEdtFuncao.Text = '' then
 begin
 ShowMessage ('Preencha o campo função do operador/funcionário');
 cont := 1;

 end else
 if DBEdtCodCli.Text = '' then
 begin
 ShowMessage ('Digite ou gere um código para o cliente');
 cont := 1;
 DBEdtCodCli.SetFocus;
 end else
 if DBEdtNomeRazaoSocial.Text = '' then
 begin
   ShowMessage ('Campo Nome/Razão Social não preenchido');
   cont := 1;
   DBEdtNomeRazaoSocial.SetFocus;
 end else
  if DBEdtSeguimento.Text = '' then
 begin
   ShowMessage ('Campo Seguimento não preenchido');
   cont := 1;
   DBEdtSeguimento.SetFocus;
 end else
  if DBEdtDatCadastro.Text = '' then
 begin
   ShowMessage ('Campo Data de Cadastro não preenchido');
   cont := 1;
   DBEdtDatCadastro.SetFocus;
 end else
  if (DBEdtSite.Text = '') and (DBEdtEmail.Text ='') then
 begin
   ShowMessage ('Preencha o campo Site ou Email');
   cont := 1;
   DBEdtSite.SetFocus;
 end else
  if (DBEdtEmail.Text = 'NAO') and (DBEdtSite.Text = 'NAO') then
 begin
   ShowMessage ('Preencha o campo Site ou Email ');
   cont := 1;

 end else
  if (DBEdtTelefone.Text = '') and (DBEdtTel2.text = 'NAO') then
 begin
   ShowMessage ('Preencha o campo Telefone Principal');
   cont := 1;
   DBEdtTelefone.SetFocus;
 end else
   if (DBEdtTelefone.Text = '') and (DBEdtTel2.text = '') then
 begin
   ShowMessage ('Preencha o campo Telefone Principal');
   cont := 1;
   DBEdtTelefone.SetFocus;
 end else
  if DBEdtRespEmpresa.Text = '' then
 begin
   ShowMessage ('Preencha o campo Responsável');
   cont := 1;
   DBEdtRespEmpresa.SetFocus;
 end else
 {/Verificando CAMPOS VAZIOS do Cadastro de Clientes (SIMPLES)}

  {Verificando CAMPOS VAZIOS do Cadastro de Clientes (COMPLETO)}
  if (DBCBTipoCliente.Text = 'COMPLETO') and (DBEdtCPFCNPJ.Text = '') then
  begin
  ShowMessage ('Preencha o campo CPF/CNPJ');
  cont := 1;
   DBEdtCPFCNPJ.SetFocus;
   end else
 if (DBCBTipoCliente.Text = 'COMPLETO') and (DBEdtEndereco.Text = '') then
  begin
  ShowMessage ('Preencha o campo Endereço');
  cont := 1;
   DBEdtEndereco.SetFocus;
   end else
    if (DBCBTipoCliente.Text = 'COMPLETO') and (DBEdtCEP.Text = '') then
    begin
  ShowMessage ('Preencha o campo CEP');
  cont := 1;
   DBEdtCEP.SetFocus;
    end else
    if (DBCBTipoCliente.Text = 'COMPLETO') and (DBEdtCidadeMunicipio.Text = '') then
  begin
  ShowMessage ('Preencha o campo Cidade/Municipio');
  cont := 1;
   DBEdtCidadeMunicipio.SetFocus;
   end else
    if (DBCBTipoCliente.Text = 'COMPLETO') and (DBEdtBairroDistrito.Text = '') then
   begin
  ShowMessage ('Preencha o campo Bairro/Distrito');
  cont := 1;
   DBEdtBairroDistrito.SetFocus;
   end else
      if (DBCBTipoCliente.Text = 'COMPLETO') and (DBEdtUF.Text = '') then
   begin
  ShowMessage ('Preencha o campo UF');
  cont := 1;
   DBEdtUF.SetFocus;
    end else
    if (DBCBTipoCliente.Text = 'COMPLETO') and (DBEdtSC.Text = '') then
   begin
  ShowMessage ('Preencha o campo Status do Contrato');
  cont := 1;
   DBEdtSC.SetFocus;
   end;
{Verificando CAMPOS VAZIOS do Cadastro de Clientes (COMPLETO)}



 {seleciona o registro}
 CodVerificar := DBEdtCodCli.Text;
DmDados.QClientes.Close;
DmDados.QClientes.SQL.Clear;
DmDados.QClientes.SQL.Add('Select * from TabClientes where CodCliente =' + chr(39)+ CodVerificar + chr(39));
Dmdados.QClientes.Open;
{/seleciona o registro}

  {Verificando se o código gerado/digitado já está presente na tabela e
 Se os campos estão devidamente preenchidos}
 if (DmDados.QClientes.RecordCount = 0) and (Cont = 0) and (DmDados.QClientes.State in [DsInsert]) then
// Verifica se exite registro com código repetido
 {/Verificando se o código gerado/digitado já está presente na tabela e
 Se os campos estão devidamente preenchidos}
begin
{Caso a condição acima esteja verdadeira, então}
Showmessage ('salvo com sucesso (Parou no Primeiro IF)');
DmDados.QClientes.Post;

DBEdtCodCli.Enabled := false;
DBEdtNomeRazaoSocial.Enabled := false;
DBEdtCPFCNPJ.Enabled := false;
DBEdtSeguimento.Enabled := false;
DBEdtDatCadastro.Enabled := false;
DBEdtSite.Enabled := false;
DBEdtEmail.Enabled := false;
DBEdtTelefone.Enabled := false;
DBEdtTel2.Enabled := false;
DBCBNdeFuncionarios.Enabled := false;
DBEdtDatTerminoContrato.Enabled := false;
DBEdtRespEmpresa.Enabled := false;
DBEdtEndereco.Enabled := false;
DBEdtBairroDistrito.Enabled := false;
DBEdtCEP.Enabled := false;
DBEdtUF.Enabled := false;
DBEdtCidadeMunicipio.Enabled := false;
DBCBTipoCliente.Enabled := false;
DBEdtFuncao.Enabled := false;
DBCBOperFunc.Enabled := false;
DBEdtCodOperFunc.Enabled := false;

btnIncluir.Enabled := true;
btnSalvar.Enabled := false;
btnImprimir.Enabled := true;
btnAlterar.Enabled := true;
btnGC.Enabled := false;
btnExcluir.Enabled := true;
btnCancelar.Enabled := false;
btnAnterior.Enabled := true;
end else

if (DmDados.QClientes.RecordCount <> 0 )and (DmDados.QClientes.State in [DsInsert]) then
begin

Showmessage ('[Código Inválido] Gerando outro código');
   Randomize;
      DBEdtCodCli.Clear;
      S := S+'0123456789';
      for I := 1 to 4 do DBEdtCodCli.Text := DBEdtCodCli.Text+S[Random(Length(S))+1];
 end else
DmDados.QClientes.Edit;
if (DmDados.QClientes.RecordCount <> 0) and (Cont = 0) and (DmDados.QClientes.State in [DsEdit]) then
begin
  DmDados.QClientes.Post;
  DmDados.TabClientes.Post;
  ShowMessage ('Alterado com sucesso');

  DBEdtCodCli.Enabled := false;
DBEdtNomeRazaoSocial.Enabled := false;
DBEdtCPFCNPJ.Enabled := false;
DBEdtSeguimento.Enabled := false;
DBEdtDatCadastro.Enabled := false;
DBEdtSite.Enabled := false;
DBEdtEmail.Enabled := false;
DBEdtTelefone.Enabled := false;
DBEdtTel2.Enabled := false;
DBCBNdeFuncionarios.Enabled := false;
DBEdtDatTerminoContrato.Enabled := false;
DBEdtRespEmpresa.Enabled := false;
DBEdtEndereco.Enabled := false;
DBEdtBairroDistrito.Enabled := false;
DBEdtCEP.Enabled := false;
DBEdtUF.Enabled := false;
DBEdtCidadeMunicipio.Enabled := false;
DBCBTipoCliente.Enabled := false;
DBEdtFuncao.Enabled := false;
DBCBOperFunc.Enabled := false;
DBEdtCodOperFunc.Enabled := false;

btnIncluir.Enabled := true;
btnSalvar.Enabled := false;
btnImprimir.Enabled := true;
btnAlterar.Enabled := true;
btnGC.Enabled := false;
btnExcluir.Enabled := true;
btnCancelar.Enabled := false;
btnAnterior.Enabled := true;