Here is the VB code:

Dim objPin As MapPoint.Pushpin
Set objPin = MPMap.ActiveMap.Selection


Here is my delphi code:

var
objpinushpin
begin
objpin:=map.activemap.selection

[Erreur] Unit1.pas(734): Types incompatibles : 'IDispatch' et 'Pushpin'

Regards, SD