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