[PRsam]

Здравствуйте! Помогите решить задачу.
У меня есть постоянно прибывающие файлы в них в среднем 500 – 700 строк. Мне нужно с 11 строки скопировать ФИО в listBox. ФИО всегда в 11 строке. Файл выглядит так:

$From 755
$To 0
$Count 01
…
$S,U=700,R=0000,B=0755,N=939393,A=10,S=1,L=45008,I =1,F="Ковальчук Антон Валентинович",
H={D=27.12.2010,A=20,U=755,R=755,N=123811,I=6,
…
S1=(Z=2,S=45008,U=3,D=4),

Как сразу стать на 11 строку не крутить весь файл так как их много и скопировать только ФИО, мне нужно список в listBox типа [имя файла - ФИО].
вот это я ф..ню написал

PHP код:

begin //01
   if FindFirst('V:\BASE\SYNC\IN_LS\*.1Ls', faAnyFile, sr) = 0 then
        BEGIN //02
        repeat
              BEGIN //03
              AssignFile(f,'V:\BASE\SYNC\IN_LS\'+SR.Name);
               Reset(F);
                  While not Eof(f) do
                  begin  //04
                      Readln(F, S);
                      l:=Length(S);
                      p:=Pos('F=',S );
                      T:= Copy(S,p+2, l-2);
                      ListBox1.Items.Add(SR.Name + '  ' + S);
                  end;//04
              CloseFile(F);
              END; //03

                
        until FindNext(sr) <> 0;
              FindClose(sr);
        END; //02
end; //01 


[dr. F.I.N.]

Код:

...
for i := 1 to 10 do ReadLn(F); // Переход на 10 строк вперед.
ReadLn(F, S); // Чтение 11й строки в переменную S
...

[PRsam]

dr. F.I.N. - спасибо