[PS11011010]

Сразу прошу прощения за возможные ошибки - они чисто синтаксические.
Примерно так можно выдергивать данные из файла.

Код:

//Грузишь все в TStringList

x:=TStringList.Create;
x.LoadFromFile(путь);
for i:=6 to x.Count; // со строки с индексом 6 начинается полезная информация
begin
temp:=x.Strings[i];
i:=1
date_:='';
repeat
if temp[j]<>'|' then date_:=date_+temp[j];
inc(j);
until temp[j]='|'; //отфильтровал до даты

date_2:='';
repeat
if temp[j]<>' ' then date_:=date_+temp[j];
inc(j);
until temp[j]=' '; //отфильтровал до второй даты

num_:='';
repeat
if temp[j]<>'|' then num_:=num_+temp[j];
inc(j);
until temp[j]='|'; //отфильтровал до номера

//...и так далее
end;