[roamer]

У Вас вечный цикл...
Надо что-то вроде этого :

Код:

Ta.Table1.First;
while not Ta.Table1.Eof do
 begin
   ...
   ...
   Ta.Table1.Next;
end;