[notarious]

Здравствуйте.

Подскажите, пожалуйста, как работать с powerpoint в delphi через Olecontainer?

мне нужно, чтоб на форме запустилась презентация, и слайды сами менялись.

Я уже написал частично код, но у меня появляется только первый слайд в верхнем левом углу контейнера. И не сменяется следующим.

Код:

procedure TForm1.N21Click(Sender: TObject);
begin
    OleContainer1.Visible := true;
    OleContainer1.CreateObjectFromFile('c:\pr.ppt',false);
    OleContainer1.DoVerb(ovShow);
    OleContainer1.Run;
end;

Заранее спасибо.