Ошибка при добавлении кортежа

if sel=1 then
    begin
      qtxt:= 'Select max(PostID)+1 as NP From Post';
        Try with Query2 do
        begin
          sql.Clear;
          sql.Add(qtxt);
          open;
        end;
        except end;
      qtxt:=
        'Insert into Post(PostID,PostName,PostAd,PostTel)'+
        ' Values ('''+IntToStr(Query2['NP'])+''', ''' +Edit2.Text+ ''', ''' +Edit3.Text+ '''+''' +Edit4.Text+ ''')';
      soob:= 'add';
    end;

    begin
        qtxt:= 'Select max(ChekID)+1 as NC From ChekTov';
        Try with Query2 do
        begin
          sql.Clear;
          sql.Add(qtxt);
          open;
        end;
        except end;
      qtxt:= 'Select TovID From Tov Where TovName= ''' + (Edit2.Text)+''' ';
        Try with Query3 do
        begin
          sql.Clear;
          sql.Add(qtxt);
          open;
        end;
        except end;
      qtxt:=               //ОШИБКА ТУТ
        'Insert into Chek(ChekID,ChekNom,ChekDate) '+  
        'Values ('+IntToStr(Query2['NC'])+', ''' +Edit1.Text+''', '''+DateToStr(DateTimePicker1.Date)+''')';
      Try with Query4 do
        begin
          sql.Clear;
          sql.Add(qtxt);
          ExecSQL;
        end;
        except end;
 
     
 qtxt:=    'Insert into ChekTov(ChekID,TovID) '+
        ' Values ('+IntToStr(Query2['NC'])+', ''' +IntToStr(Query3['TovID'])+''')';
   end;