anchor.diff:      procedure   MsgPaint(var msg: TfpgMessageRec); message FPGM_PAINT;
       procedure   MsgClose(var msg: TfpgMessageRec); message FPGM_CLOSE;
       procedure   MsgResize(var msg: TfpgMessageRec); message FPGM_RESIZE;
  +    procedure   MsgMouseUp(var msg: TfpgMessageRec); message FPGM_MOUSEUP;
     public
       constructor Create(AOwner: TComponent); override;
       procedure   Show;
  
positive.code: begin
    fpgApplication.Initialize;
    MainWindow := TMainWindow.Create(nil);
    MainWindow.Show;
    fpgApplication.Run;
    MainWindow.Free;
  
negative.code: 
  const
    HelloWorldString: String = 'Hello, world!';
    ClickToClose: String = 'click to close';
  
  
  type
  