[flov_imported]

вот часть кода

  Increment(TotalSalesLine.Amount,Amount);
     ia:=ia+1;
   TestTable.init;
   TestTable.LineAmount:=Amount;
   TestTable.TLineAmount:=TotalSalesLine.Amount;
   TestTable.In:=ia;
   TestTable.insert;