Delphi + ActiveX или ничего не понимаю!

Добрый день коллеги.

Столкнулся с такой загадкой:


Понадобилось использовать ActiveX компонент MapWinGis http://www.mapwindow.org/ для создания картографической информации в Delphi. Скачал, установил, импортировал, установил, сделал тестовый проект и столкнулся с такой проблемой, компонент не работает в следующем тривиальном коде:

var
Sh : IShapefile;
begin
Sh := CoShapefile.Create;
IF OpenDialog1.Execute then
begin
if not Sh.Open(OpenDialog1.FileName, nil) then
ShowMessage('err!');
try
  Map1.AddLayer(sh,true);   // выдает ошибку после чего, карта становится черным цветом
Map1.ZoomToMaxExtents;
except
On E:Exception do
ShowMessage(E.Message);
end;
end;

Ну не работает и не работает и бог с ним, но однако дернул меня черт проверить похожий код в C++ Builder-е

void __fastcall TfrmMain::aLoadSHPExecute(TObject *Sender)
{
if (OpenDialog1->Execute())
{
IShapefilePtr shapefile1;
shapefile1.CreateInstance(CLSID_Shapefile);
shapefile1->Open(OpenDialog1->FileName.w_str(), NULL );
 Map1->AddLayer(shapefile1,true); // работает
}
}

И там он заработал, пошел дальше проверил в C# и Visual Basic - ТОЖЕ РАБОТАЕТ!

В общем работает везде, но только не в Delphi! Вот и сижу гадаю, вроде ActiveX является универсальным так сказать компонентом и доступен их всех языков поддерживающих данную технологию и ПО ИДЕЕ в DELPHI должен работать. Или что то Delphi делает не так, что вызывает ошибку в данной ActiveX. Такие вот пироги с котятами. У кого какие идеи?