Я не вижу, где вы указываете имя базы данных. Если в дизайнере тогда вопросов нет. Проверьте правильность указания имени БД.
Код:
For i:=0 to Table1.RecordCount-1 do
А вообще лучше так:
Код:
..
with Table1 do
begin
First;
While not Table1.eof do
begin
...
Next;
end;
end;
..