System.Classes.TThread.CreateAnonymousThread(

    procedure

    var  LStopwatch: TStopwatch;

      List: TStringList;  s: string;

      RW: RawUTF8;

 

      RW8: TRawUTF8List;

    begin

        LStopwatch := TStopwatch.Create;

        LStopwatch.Start;

 

        RW8:= TRawUTF8List.Create;

        RW8.LoadFromFile( '1038.xml' );

        RW :=  StringReplaceAll(RW8.Text, 'http://', '');

        RW8.Free;

        LStopwatch.Stop;

        mmo1.Lines.Add('Elapsed: ' + LStopwatch.ElapsedMilliseconds.ToString);

 

     end).Start;