Может быть у кого на компе стоит Project, попробуйте. Там вроде всё прозрачно, но никак не могу понять, что же я делаю не так.

Делаю вот так. Импортирую библиотеку типов. Далее подключаю:

uses MSProject_TLB;

var
projApp: _MSProject;
projDoc: _IProjectDoc;
TaskCount: integer;

... далее в тексте программы

projApp := CoProjectApplication.Create;
projApp.Visible := true;
OpenDialog1.Filter := '????? MSProject (*.mpp)|*.mpp';
OpenDialog1.InitialDir := 'F:\MSProjects';
if OpenDialog1.Execute then
Variant(projApp).FileOpen(OpenDialog1.FileName);
projDoc := projApp.ActiveProject;
TaskCount := projDoc.Tasks.Count;

Всё запускается, открывается и т.д. совершенно нормально. В отладчике указатели ненулевые, всё отлично, но вот на последней строчке вываливается ошибка Acess Violation в OLEAUT32.DLL. Поиск в google ничего не дал. У кого какое мнение, от чего она может происходить?