[rapashocker]

Привент всем помогите ошибочку исправить плиз вот написал для открытия презинтации и перелистывания ее, но вот загвоздка одна ошибочка я ее не пойму никак))

Код:

procedure TPrez.sButton1Click(Sender: TObject);

var
  PowerPointApp: OLEVariant;
begin

   PowerPointApp := CreateOleObject('PowerPoint.Application');

PowerPointApp.Visible := True;
PowerPointApp.Presentations.Open(((ExtractFilePath(ParamStr(0))+'\Теория\антивирусные программы.pptx', False, False, True);
 PowerPointApp.ActivePresentation.SlideShowSettings.Run;
    PowerPointApp.ActivePresentation.SlideShowWindow.View.Next;
end;
end.

expected ' ,' found в этйо строке PowerPointApp.Presentations.Open(((ExtractFilePath (ParamStr(0))+'\Теория\антивирусные программы.pptx', False, False, True);