Powerpoint показ слайдов

procedure TForm1.Button2Click(Sender: TObject);
 
var
  PowerPointApp: OLEVariant;
begin
  try
    PowerPointApp := CreateOleObject('PowerPoint.Application');
  except
    ShowMessage('Error...');
    Exit;
  end;
 
  // Make Powerpoint visible
  PowerPointApp.Visible := True;
 
 
  // Open a presentation
  PowerPointApp.Presentations.Open('C:\Users\user\Documents\RAD Studio\Projects\Work\Презентация\презентация1.pptx', False, False, True);
 
 
  // Run the presentation
  PowerPointApp.ActivePresentation.SlideShowSettings.Run;
 
 
 
 
  // Go to slide
  PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(2);
  PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(3);
  PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(4);
  PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(5);
  PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(6);
  PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(7);
  PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(8);
  PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(9);
  PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(10);
   PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(11);
   PowerPointApp.ActivePresentation.SlideShowWindow.View.GoToSlide(12);
  PowerPointApp.ActivePresentation.SlideShowWindow.View.Last;
 
 
 
  // Close Powerpoint
  PowerPointApp.Quit;
  PowerPointApp := UnAssigned;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var key: Word; Shift: TShiftState); // прописать в событие OnKeyDown
begin
  case key of
    VK_ESCAPE:
      Close;
    VK_SPACE:
      Button2Click(Sender);
  end;
end;