Fórum Procedure de gravação #445001

procedure TfrmClientes.btnGravarClick(Sender: TObject);
begin
    if (Gravacao = 'I') then
    qyClientes.Close;
    qyClientes.SQL.Clear;
    qyClientes.SQL.Append('INSERT INTO tbCliente (Nome, DataNascimento, Endereco, Identidade, CPF, Observacao) VALUES (:Nome, :DataNascimento, :Endereco, :Identidade,  :CPF, :Observacao)');
    qyClientes.Parameters.ParamByName('Nome').Value := edtNome.Text;
    qyClientes.Parameters.ParamByName('Endereco').Value := edtEndereco.Text;
    qyClientes.Parameters.ParamByName('DataNascimento').Value := edtNascimento.Text;
    qyClientes.Parameters.ParamByName('Identidade').Value := edtIdentidade.Text;
    qyClientes.Parameters.ParamByName('CPF').Value := edtCPF.Text;
    qyClientes.Parameters.ParamByName('Observacao').Value := edtObservacao.Text;
    qyClientes.ExecSQL;
    edtCodigo.Enabled := False;
    edtNome.Enabled := False;
    edtNascimento.Enabled := False;
    edtEndereco.Enabled := False;
    edtIdentidade.Enabled:= False;
    edtCPF.Enabled := False;
    edtObservacao.Enabled := False;
    edtNome.Color := clWindow;
    edtNascimento.Color := clWindow;
    edtEndereco.Color := clWindow;
    edtIdentidade.Color := clWindow;
    edtCPF.Color := clWindow;
    edtObservacao.Color := clWindow;
    btnGravar.Enabled := False;
    btnAlterar.Enabled := True;
    else
    if (Gravacao = A) then
    qyClientes.Close;
    qyClientes.SQL.Clear;
    qyClientes.SQL.Append('UPDATE tbCliente SET Nome = :Nome, DataNascimento = :DataNascimento, Endereco = :Endereco, Identidade = :Identidade, CPF = :CPF, Observacao = :Observacao')
    qyClientes.Parameters.ParamByName('Nome').Value := edtNome.Text;
    qyClientes.Parameters.ParamByName('Endereco').Value := edtEndereco.Text;
    qyClientes.Parameters.ParamByName('DataNascimento').Value := edtNascimento.Text;
    qyClientes.Parameters.ParamByName('Identidade').Value := edtIdentidade.Text;
    qyClientes.Parameters.ParamByName('CPF').Value := edtCPF.Text;
    qyClientes.Parameters.ParamByName('Observacao').Value := edtObservacao.Text;
    qyClientes.ExecSQL;
    edtCodigo.Enabled := False;
    edtNome.Enabled := False;
    edtNascimento.Enabled := False;
    edtEndereco.Enabled := False;
    edtIdentidade.Enabled:= False;
    edtCPF.Enabled := False;
    edtObservacao.Enabled := False;
    edtNome.Color := clWindow;
    edtNascimento.Color := clWindow;
    edtEndereco.Color := clWindow;
    edtIdentidade.Color := clWindow;
    edtCPF.Color := clWindow;
    edtObservacao.Color := clWindow;
    btnGravar.Enabled := False;
    btnAlterar.Enabled := True;
  end;