anchor.diff:  
   type
     TVFDFormParser = class(TObject)
  -  protected
  +  private
       ffd: TFormDesigner;
       fformname: string;
       BodyLines: TStringList;
       eob: boolean;
       line: string;
       lineindex: integer;
  -  public
  +    procedure   ParseFormProperties;
  +    procedure   ParseFormWidgets;
       procedure   NextLine;
  +    function    ReadWGProperty(propline: string; wg: TfpgWidget; wgc: TVFDWidgetClass): boolean;
     public
       constructor Create(const FormName, FormHead, FormBody: string);
       destructor  Destroy; override;
       function    ParseForm: TFormDesigner;
  -    procedure   ParseFormProperties;
  -    procedure   ParseFormWidgets;
  -    function    ReadWGProperty(propline: string; wg: TfpgWidget; wgc: TVFDWidgetClass): boolean;
     end;
   
   
  
positive.code:     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  
      Description:
        Some Pascal source code parsing functionality.
  }
  
  unit vfdformparser;
  
negative.code:   quot: boolean;
    c, prevc: char;
    ccode: string;
  //  ids: string;
  begin
    Result := '';
  //  ids    := GetIdentifier(s);
  //  if ids <> '' then
  {    if ids = 'u8' then
      begin
        if not CheckSymbol(s, '(') then
  