[Alegun]

Забыл про освобождение ресурсов, после txtall.free следует добавить

Код:

...
 for i := High(listDoc) downto 0 do listDoc[i].Free;
...

З.Ы. Хорошая мысля приходит опосля вот однопроходной вариант, без накопления:

Код:

var
 i: integer;
 txtAll: TStrings;
 lit:TListItem;
 begin
   txtAll:= TStringList.Create;
   txtAll.LoadFromFile('text.txt');

   for i := 0 to txtAll.Count-1 do
    begin
     if Copy(txtAll[i],1, 6) = 'Номер=' then
      begin
       lit:= ListView1.Items.Add;
       lit.Caption:= Copy(txtAll[i], 7, Length(txtAll[i]));
      end;
     if Copy(txtAll[i],  1, 5) = 'Дата=' then
      lit.SubItems.Add(Copy(txtAll[i], 6, Length(txtAll[i])));
     if Copy(txtAll[i],  1, 6) = 'Сумма=' then
      lit.SubItems.Add(Copy(txtAll[i], 7, Length(txtAll[i])));
     if Copy(txtAll[i], 1, 12) = 'Получатель1=' then
      lit.SubItems.Add(Copy(txtAll[i],13, Length(txtAll[i])));
     if Copy(txtAll[i], 1, 19) = 'НазначениеПлатежа1=' then
      lit.SubItems.Add(Copy(txtAll[i], 20,Length(txtAll[i])));
    end;
  txtAll.Free;
end;