Поставь курсор на строчку
Код:
n:=Form1.DBGrid1.DataSource.DataSet.RecordCount;
и нажми F5. Потом запусти программу и на этой строчке процесс остановиться. Нажимай F8 пока не появиться ошибка, и напиши сюда на какой строчке появилась ошибка.
P.S. Если непонятно описал, обращайся в личные сообщения.