anchor.diff:  
     TextEditor.Clear;
     TextEditor.SetFocus;
  +
  +  FFileMonitor.Resume;
     {$IFDEF DEBUGSVR}SendMethodExit('TMainForm.FormShow');{$ENDIF}
   end;
   
  
positive.code:     TfpgTextEdit(pcEditor.Pages[i].Components[0]).Lines.EndUpdate;
      pcEditor.ActivePageIndex := i;
      ts := pcEditor.ActivePage;
    end
    else
    begin
  
negative.code:   {$IFDEF DEBUGSVR}
    SendDebug('TMainForm.Create');
    {$ENDIF}
    FFileMonitor := TFileMonitor.CreateCustom;
    FFileMonitor.OnFileChanged  := @MonitoredFileChanged;
  end;
  
  destructor TMainForm.Destroy;
  begin
    FFileMonitor.Terminate;
    FFileMonitor.Free;
    FRegex.Free;
    FKeywordFont.Free;
    inherited Destroy;
  