have a try.
{
while not seekeof
begin

end;
}