Загрузка Данных в ListView1

procedure ListViewSaveToFile(ListView: TsListView; const FileName: string);
  procedure AddTextToLine(var Line: string; const Text: string);
  begin
    Line := Line + Text + '';
  end;
  procedure MoveCompletedLineToList(const Strings: TStringList; var Line: string);
  begin
    Strings.Add(System.Copy(Line, 1, Length(Line)-1)+#13);
    Line := '';
  end;
var
  Strings: TStringList;
  LatestLine: string;
  i, j: Integer;
begin
  LatestLine := '';
  Strings := TStringList.Create;
  try
    for i := 0 to ListView.Items.Count-1 do begin
      AddTextToLine(LatestLine,ListView.Items[i].Caption+#13);
      AddTextToLine(LatestLine,ListView.Items[i].SubItems[0]+#13#13);
      AddTextToLine(LatestLine,'['+ ListView.Items[i].SubItems[1]+']');
      AddTextToLine(LatestLine,'['+ ListView.Items[i].SubItems[2]+']'+']');
      MoveCompletedLineToList(Strings, LatestLine);
    end;
    Strings.SaveToFile(FileName, TEncoding.UTF8);
  finally
    Strings.Free;
  end;
end;

Infinite Health
F30F1087????????F30F5C44????F30F1144
 
[][9C60C7873402000000C07944619DF30F108734020000]

procedure ListViewLoadFromFile(ListView: TsListView; const FileName: string);
var
  Strings: TStringList;
  i, j: Integer;
  Fields: TStringDynArray;
  Item: TListItem;
begin
  Strings := TStringList.Create;
  try
    Strings.LoadFromFile(FileName);
    ListView.Clear;
    for i := 0 to Strings.Count-1 do begin
      Fields := SplitString(Strings[i], #13);
      Item := ListView.Items.Add;
      Item.Caption := Fields[0];
      for j := 1 to high(Fields) do begin
        Item.SubItems.Add(Fields[0]);
      end;
    end;
  finally
    Strings.Free;
  end;
end;