Сразу прошу прощения за возможные ошибки - они чисто синтаксические.
Примерно так можно выдергивать данные из файла.
Код:
//Грузишь все в 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;