anchor.diff:    EntitiesConnector.removeObserver(self);
     if fTempLines <> nil then
       fTempLines.Free;
  -  killServer;
  -  fServer.Free;
  +  if fServer <> nil then begin
  +    if not fServerWasRunning then killServer;
  +    fServer.Free;
  +  end;
     fClient.Free;
     inherited;
   end;
  
positive.code:   fClient.ShowWindow := swoHIDE;
    {$ENDIF}
    //
    fServer := TProcess.Create(self);
    fServer.Executable := serverName;
    fServer.Options := [{$IFDEF WINDOWS} poNewConsole{$ENDIF}];
    {$IFNDEF DEBUG}
    fServer.ShowWindow := swoHIDE;
    {$ENDIF}
    fTempLines := TStringList.Create;
    fServer.Execute;
    //
    EntitiesConnector.addObserver(self);
  end;
  
negative.code: interface
  
  uses
    Classes, SysUtils, process, forms, strutils, windows,
    ce_common, ce_writableComponent, ce_interfaces, ce_observer, ce_synmemo, ce_project;
  
  type
  