anchor.diff:      Directory := '';
       RootDirectory := '';
       TabOrder := 7;
  +    Hint := ' ';
  +    OnShowHint := @BeforeShowHint;
     end;
   
     Label4 := TfpgLabel.Create(tsCompiler);
  
positive.code:   end;
  end;
  
  procedure TProjectOptionsForm.LoadSettings;
  var
    i, j: integer;
  
negative.code:     InitialDir := '';
      Filter := '';
      TabOrder := 2;
      Hint := ' ';
      OnShowHint := @BeforeShowHint;
    end;
  
    Label2 := TfpgLabel.Create(tsCompiler);
  