anchor.diff:      fProj: TCEProject;
       procedure killServer;
       procedure terminateClient;
  +    procedure waitClient;
       //
       procedure projNew(aProject: TCEProject);
       procedure projChanged(aProject: TCEProject);
  
positive.code: destructor TCEDcdWrapper.destroy;
  begin
    EntitiesConnector.removeObserver(self);
    if fTempLines <> nil then
      fTempLines.Free;
    if fServer <> nil then begin
  
negative.code: begin
    if not fAvailable then exit;
    //
    fClient.Parameters.Clear;
    fClient.Parameters.Add('--shutdown');
    fClient.Execute;
  