Delphi и Paradox

Form9.Query3.DatabaseName:=Path;
Form9.Query3.SQL.Clear;
         Form9.Query3.SQL.Add('SELECT idate, ind, ur8 from giraz1.DB  where (mes between ''1'' and ''12'')'+
         ' and (den between ''1'' and ''31'') and ind in ('''+inds1+''')'+
         ' and (idate between '''+idate2+''' and '''+idate1+''') order by ind, idate');
         Form9.Query3.Active:=True;

Form9.UpdateSQL1.ModifySQL.Clear;
           Form9.UpdateSQL1.ModifySQL.Add('Update giraz1.DB set ur8='''+dan+''' '+
           'where ind='+stan+' and idate=cdate('''+dt+''')');

Form9.Query3.SQL.Clear;
Form9.Query3.SQL.Add('Update giraz1.DB set ur8='''+dan+''' '+
'where ind='+stan+' and idate=cdate('''+dt+''')');
Form9.Query3.ExecSQL;

with Form9.Query3 do
  try 
   SQL.Text := 'Update giraz1.DB set ur8=:pur8 where (ind=:pind) and (idate=:pidate)';
   ParamByName('pur8').AsString := dan;
   ParamByName('pind').AsInteger := stan;
   ParamByName('pidate').AsDateTime := dt;
   ExecSQL;
  except
   ShowMessage('Типа ошибка !')
 end;

Form9.Query3.SQL.Clear;
Form9.Query3.SQL.Add('Update giraz1.DB set ur8='''+dan+''' '+
'where ind='+stan+' and idate='''+dt+'''');
Form9.Query3.ExecSQL;

Form9.Query1.SQL.Clear;
Form9.Query1.SQL.Add('insert into giraz1.DB (ind, ur8, idate) '+
'values ('+stan+', '''+dan+''', '''+dt+''')');
Form9.Query1.ExecSQL;

Form9.Query3.SQL.Clear;
Form9.Query3.SQL.Add('Update giraz1.DB set ur8='''+dan+''' '+
'where ind='+stan+' and idate='''+dt+'''');
Form9.Query3.ExecSQL;

if Form6.StringGrid1.Visible=True then
     begin
        for i:=1 to Form6.StringGrid1.ColCount-1 do
        if Sg1.Rows[1].Objects[i]=TObject(1) then //проверка флага на внесение изменений в ячейку
        begin
        error := False;
        ShortDateFormat:='dd/mm/yyyy';
        dt:=Form6.StringGrid1.Cells[i, 0];
        stan:=copy(Form6.Label1.Caption, 1, 5);
           if Form9.Query3.Locate('idate; ind', VarArrayOf([dt1, stan]),[])  then error := True;
           if error then
           begin
           dan:=Form6.StringGrid1.Cells[i, 1];
           Form9.Query1.SQL.Clear;
           Form9.Query1.SQL.Add('Update giraz1.DB set ur8='''+dan+''' '+
           'where ind='+stan+' and idate='''+dt+'''');
           ShowMessage(Form9.Query1.SQL.Text);
           Form9.Query1.ExecSQL;
           Sg1.Rows[1].Objects[i]:=TObject(0);
           Form5.Button1.Click;
           end
           else
           begin
           dan:=Form6.StringGrid1.Cells[i, 1];
           Form9.Query1.SQL.Clear;
           Form9.Query1.SQL.Add('insert into giraz1.DB (ind, ur8, idate) '+
           'values ('+stan+', '''+dan+''', '''+dt+''')');
           Form9.Query1.ExecSQL;
           Sg1.Rows[1].Objects[i]:=TObject(0);
           Form5.Button1.Click;
           end;
        end;
     end;