Экспорт в файл

[GGNAME]

Описываю по шагам:
Создаёшь таблицу с ид больше 50000, создаёшь в ней три поля LineNo , LineAmount, TLineAmount. In указываешь первичным ключём. Сохраняешь с компиляцией. Заходишь в свой код и:
Создаёшь переменную TestTable с типом Record

Немного изменяешь код:
Increment(TotalSalesLine.Amount,Amount);

ia:=ia+1;
TestTable.LineNo:=ia;
TestTable.LineAmount:=Amount;
TestTable.TLineAmount:=TotalSalesLine.Amount;
TestTable.insert;

Поменяй название поля In на LineNo, есть такой оператор In.
И присылать надо не скриншот таблицы. А лучше всего включить дебугер, запустить программу, в случае ошибки она покажет где ошибка в коде, точнее на какой строчке и что выдала сама ошибка написать.