Begin    
   try
     PowerPointApp := CreateOleObject('PowerPoint.Application')
   except    
     Exit;
   end;
   PowerPointApp.Presentations.open(c:\myfile.ppt, False, False, false);
   ppl := PowerPointApp.Presentations.Item(1).Slides.Count;     // Check number of pages in this one there are 3 pages
   PowerPointApp.Presentations.Item(1).SlideShowSettings.Run;
//Then I set a timer to check if its the last page
   timer1.enabled := true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var pl, fld : string;
begin
  pl := PowerPointApp.ActivePresentation.SlideShowWindow.View.Slide.Name;
  if  pl = 'Slide' + inttostr(ppl) then begin
      timer1.enabled := false;
      timer2.interval := 5000;
      timer2.enabled := true;
  end;
end;

procedure TForm1.ppTimer2Timer(Sender: TObject);
begin
  try
  PowerPointApp.Quit;
  except
  end;
  timer3.enabled := true;    // loop back and check what to display next
end;

@mas_kofa: http://www.torry.net/vcl/system/appscommunications/tpowpnt.zip

@slvr: [quote:c7dfec9478="mas_kofa"]http://www.torry.net/vcl/system/appscommunications/tpowpnt.zip[/quote:c7dfec9478] maap, bisa bantu cara install komponennya?