anchor.diff:    StrDispose( Text );
   end;
   
  +procedure TMainForm.ResetProgress;
  +begin
  +  { TODO -oGraeme : implement ResetProgress }
  +end;
  +
  +procedure TMainForm.SetStatus(const AText: TfpgString);
  +begin
  +  lblStatus.Text := AText;
  +end;
  +
  +function TMainForm.TranslateEnvironmentVar(AFilenames: TfpgString): TfpgString;
  +var
  +  EnvironmentVarValue: string;
  +begin
  +  EnvironmentVarValue := GetEnvironmentVariable(UpperCase(AFilenames));
  +  if EnvironmentVarValue <> '' then
  +    Result := EnvironmentVarValue
  +  else
  +    Result := AFileNames;
  +end;
  +
  +function TMainForm.FindHelpFile(AFileName: TfpgString): TfpgString;
  +begin
  +  { TODO -oGraeme : Implement FindHelpFile()}
  +  Result := AFilename;
  +end;
  +
   constructor TMainForm.Create(AOwner: TComponent);
   begin
     inherited Create(AOwner);
  
positive.code:     procedure   ClearNotes;
      procedure   SaveNotes(AHelpFile: THelpFile);
      procedure   DisplayTopic;
    public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
  
negative.code: 
  destructor TMainForm.Destroy;
  begin
    inherited Destroy;
  end;
  
  