anchor.diff:  
     Application.ProcessMessages;
   
  -  if (gGameApp.GameSettings <> nil) and gGameApp.GameSettings.VideoStartup then
  +  if fShowStartVideo and (gGameApp.GameSettings <> nil) and gGameApp.GameSettings.VideoStartup then
     begin
       gVideoPlayer.AddVideo('Campaigns\The Shattered Kingdom\Logo');
       gVideoPlayer.AddVideo('KaM');
       gVideoPlayer.Play;
     end;
  +  fShowStartVideo := False;
   end;
   
   
  
positive.code: //Remove VCL panel and use flicker-free TMyPanel instead
  procedure TFormMain.FormCreate(Sender: TObject);
  begin
    RenderArea := TKMRenderControl.Create(Self);
    RenderArea.Parent := Self;
    RenderArea.Align := alClient;
  
negative.code: 
      procedure ControlsUpdate(Sender: TObject);
    private
      fShowStartVideo: Boolean;
      fUpdating: Boolean;
      fMissionDefOpenPath: UnicodeString;
      fOnControlsUpdated: TEvent;
  