[DCoder]

Вопрос решается одной строкой.
First не нужен. Т.к. неважно откуда удалять все записи:
сначала или с конца или из середины

while not Table1.EOF do Table1.Delete;