procedure FillDatas(Data: string);
var
  Li: TListItem;
  p: integer;
  Strings: TStringList;
  StringList: TStringList
begin

    Strings := TStringList.Create;
    StringList := TStringList.Create;
    Strings.Text := Data;

    TThread.CreateAnonymousThread(procedure () begin

    listview1.Items.BeginUpdate;
    Strings.BeginUpdate; StringList.BeginUpdate;


    for i := 0 to Strings.Count -1 do begin

      Li := Listview1.FindCaption(0,Split(Strings.Strings[i], '|', 1),False,True,False);

      if Li = nil then begin

        Li := Listview1.Items.Add;
        Li.Caption := Split(Strings.Strings[i], '|', 1);

        Li.SubItems.Add(Split(Strings.Strings[i], '|', 2));

        Li.SubItems.Add(Split(Strings.Strings[i], '|', 3));
        Li.SubItems.Add(Split(Strings.Strings[i], '|', 4));
        Li.SubItems.Add(ExtractFileName(Split(Strings.Strings[i], '|', 5)));
        Li.SubItems.Add(Split(Strings.Strings[i], '|', 6));

      end else begin
        Li.StateIndex := 0;
        if Li.SubItems[0] <> Split(Strings.Strings[i], '|', 2) then Li.SubItems[0] := Split(Strings.Strings[i], '|', 2);
        if Li.SubItems[2] <> Split(Strings.Strings[i], '|', 4) then Li.SubItems[2] := Split(Strings.Strings[i], '|', 4);

      end;
      StringList.Add(Li.Caption);

    end;
    Strings.Free;
    for i := Listview1.Items.Count -1 downto 0 do begin

         p := StringList.IndexOf(Listview1.Items[i].Caption);

      if p = -1 then Listview1.Items[i].StateIndex := 2;

      if Listview1.Items[i].StateIndex = 2 then begin
        Listview1.Items[i].Delete;
        Continue;
      end;

    end;

    StringList.Free;
    Listview1.Items.EndUpdate;
    Strings.EndUpdate; StringList.EndUpdate;


end).Start;

  end;
end;