Fórum Erro de sintax #297364

procedure TFrmContainer.BtnSalvarClick(Sender: TObject);
var
  Reg: string;
begin
  if (verificaCampos) and (not flag1) then
  begin
    Reg := Edit1.Text;
    Dtmodule.QryContainer.SQL.Clear;
    Dtmodule.QryContainer.SQL.Add(´Select * from Nvocc_Container´);
    Dtmodule.QryContainer.SQL.Add(´Where Container = :Container´);
    Dtmodule.QryContainer.ParamByName(´Container´).Value := Edit1.Text;
    Dtmodule.QryContainer.Open;

    if Dtmodule.QryContainer.IsEmpty then
    begin
      Dtmodule.QryContainer.Close;
      Dtmodule.QryContainer.Sql.Clear;
      Dtmodule.QryContainer.Sql.Add(´INSERT INTO Nvocc_Container (Container, Tipo, Tamanho, Tara) ´);
      Dtmodule.QryContainer.Sql.Add(´VALUES (:Container, :Tipo, :Tamanho, :Tara)´);
      Dtmodule.QryContainer.ParamByName(´Container´).Value := Edit1.Text;
      Dtmodule.QryContainer.ParamByName(´Tipo´).Value := Edit2.Text;
      Dtmodule.QryContainer.ParamByName(´Tamanho´).Value := Edit3.Text;
      Dtmodule.QryContainer.ParamByName(´Tara´).Value := Edit9.Text;
      Dtmodule.QryContainer.ExecSql;
      Showmessage(´O Registro ( ´ + Reg + ´ ) foi inserido com sucesso´);
    end
    else
      try
        if Application.MessageBox(´Estes dados já existem. Deseja salvar mesmo assim?´,
          ´Confirmação´, MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = idyes then
        begin
          Dtmodule.QryContainer.Close;
          Dtmodule.QryContainer.Sql.Clear;
          Dtmodule.QryContainer.Sql.Add(´UPDATE Nvocc_Container´);
          Dtmodule.QryContainer.Sql.Add(´SET Container = :Container, Tipo = :Tipo, ´);
          Dtmodule.QryContainer.Sql.Add(´TAMANHO = :Tamanho, Tara = :Tara ´);
          Dtmodule.QryContainer.Sql.Add(´where Container = :Container);
          Dtmodule.QryContainer.ParamByName(´Container´).Value := Edit1.Text;
          Dtmodule.QryContainer.ParamByName(´Tipo´).Value := Edit2.Text;
          Dtmodule.QryContainer.ParamByName(´Tamanho´).Value := Edit3.Text;
          Dtmodule.QryContainer.ParamByName(´Tara´).Value := Edit9.Text;
          Dtmodule.QryContainer.ExecSql;
          Showmessage(´O Registro ( ´ + Reg + ´ ) foi atualizado com sucesso´);
        end;
      except
        messageBeep(10);
      end;
  end;
end;

procedure TFrmArmador.BtnSalvarClick(Sender: TObject);
var
   Reg: string;
begin
   if verificaCampos = True and flag1 = False then
      begin
         Reg := edit1.Text;
         Dtmodule.QryArmador.SQL.Clear;
         Dtmodule.QryArmador.SQL.Add(´Select * from Nvocc_Armador´);
         Dtmodule.QryArmador.SQL.Add(´Where Codigo = ´ + quotedstr(edit1.Text));
         Dtmodule.QryArmador.Open;
         if Dtmodule.QryArmador.isEmpty then
            begin
               Dtmodule.QryArmador.close;
               Dtmodule.QryArmador.sql.clear;
               Dtmodule.QryArmador.sql.add(´INSERT INTO Nvocc_Armador (Codigo, Nome) ´);
               Dtmodule.QryArmador.sql.add(´ VALUES (´ +
               quotedstr(Edit1.Text) + ´,´ +
               quotedstr(Edit2.Text) + ´)´);
               Dtmodule.QryArmador.execsql;
               Flag := False;
               Showmessage(´O Registro ( ´ + Reg + ´ ) Foi Inserido com Sucesso´);

procedure TFrmContainer.BtnSalvarClick(Sender: TObject);
var
   Reg: string;
begin
   if verificaCampos = True and flag1 = False then
      begin
         Reg := edit1.Text;
         Dtmodule.QryContainer.SQL.Clear;
         Dtmodule.QryContainer.SQL.Add(´Select * from Nvocc_Container´);
         Dtmodule.QryContainer.SQL.Add(´Where Container = ´ + quotedstr(edit1.Text));
         Dtmodule.QryContainer.Open;
         if Dtmodule.QryContainer.isEmpty then
           begin
               Dtmodule.QryContainer.close;
               Dtmodule.QryContainer.sql.clear;
               Dtmodule.QryContainer.sql.add(´INSERT INTO Nvocc_Container (Container,tipo,tamanho,Tara) ´);
               Dtmodule.QryContainer.sql.add(´ VALUES (´ +
               quotedstr(Edit1.Text) + ´,´ +
                  quotedstr(Edit2.Text) + ´,´ +
                  quotedstr(Edit3.Text) + ´,´ +
               quotedstr(Edit9.Text) + ´)´);
               Dtmodule.QryContainer.execsql;
               Flag := False;
               Showmessage(´O Registro ( ´ + Reg + ´ ) Foi Inserido com Sucesso´);