anchor.diff:  
   { TNullInterfacedObject }
   
  -function TNullInterfacedObject.QueryInterface(const IID: TGUID; out Obj): longint; stdcall;
  +function TNullInterfacedObject.QueryInterface(constref IID: TGUID; out Obj): longint; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
   begin
     if GetInterface(IID, Obj) then
       Result := 0
  
positive.code: 
  procedure TAddCommand.Execute;
  begin
    Writeln('>> TAddComand.Execute');
    FMemo.Lines.Add('Hello ' + IntToStr(Random(500)));
    FMemo.Invalidate;
  end;
  
negative.code: 
  procedure TExitCommand.Execute;
  begin
    DebugLn('>> TExitComand.Execute');
    fpgApplication.Terminated := True;
  end;
  
  