[Yurk@]

как вариант:

Код:

var
i:integer;
F:TextFile;
s:string;
...
begin
i:=1;
s:='';
try
AssignFile(F,'F.txt');
Reset(F);
while not EoF(F) do
  begin
  ReadLn(F,s);
  if i mod 10 = 0 
    then 
    begin
    // операции со строкой
    end;
  Inc(i);
  end;
Finally
CloseFile(F);
end;
end;