anchor.diff:  begin
     fpgApplication.Initialize;
     MainWindow := TMainWindow.Create(nil);
  +  fpgApplication.MainForm := MainWindow;
     MainWindow.Show;
     fpgApplication.Run;
     MainWindow.Free;
  
positive.code: procedure TMainWindow.MsgClose(var msg: TfpgMessageRec);
  begin
    ReleaseWindowHandle;
    Halt(0);
  end;
  
  procedure TMainWindow.MsgResize(var msg: TfpgMessageRec);
  begin
    FWidth  := msg.Params.rect.Width;
    FHeight := msg.Params.rect.Height;
  end;
  
  
  
negative.code: 
  const
    HelloWorldString: String = 'Hello, world!';
    ClickToClose: String = 'click to close';
  
  
  type
  