anchor.diff:    If FRunning Then
       RaiseError('Open', 'Thread is already running.');
     FRunning := True;
  +  FStopped := False;
     FInternal := TInternalThread.create(self);
   End;
   
   procedure TFslThread.Stop;
   Begin
  +  FStopped := true;
     FInternal.Terminate;
   End;
   
  
positive.code:         et := GetTickCount64 + TimePeriod;
          repeat
            sleep(50);
          until GetTickCount64 >= et;
        end;
      end
      else
  
negative.code:     FAutoFree: boolean;
      FInternal : TThread;
      FRunning : Boolean;
      FStopped : Boolean;
      FTimePeriod: cardinal;
  
      procedure InternalExecute;
  