anchor.diff:  procedure TMainWindow.MsgClose(var msg: TfpgMessageRec);
   begin
     ReleaseWindowHandle;
  -  Halt(0);
  +  fpgApplication.Terminate;
   end;
   
   procedure TMainWindow.MsgResize(var msg: TfpgMessageRec);
   begin
     FWidth  := msg.Params.rect.Width;
     FHeight := msg.Params.rect.Height;
  +end;
  +
  +procedure TMainWindow.MsgMouseUp(var msg: TfpgMessageRec);
  +begin
  +  MsgClose(msg);
   end;
   
   
  
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
  