Freez trotz Thread

[Zodi]

Hi Delphianer's

Ich habe folgendes Problem.

Ich lese daten und schreibe die in eine Listview.
Damit das Fenster nicht Freezed habe ich in der Prozedure einen Thread eingebaut.
Leider Freezt das Fenster aber nach paar minuten dann doch ein. Hat das mit meinem Thread zu tun?

Delphi-Quellcode:

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;