Добрый день, есть кусок куда в VBA нужно сделать то-же самое но в делфи, подскажите как.

з.ы. сам объект на другом компутере

'Вызов и формирование объекта интерфейса
  Dim obj As Object
  Dim Person As String, ClientID As String, RequestID As String

  On Error Resume Next
    Set obj = CreateObject("MYDCOMServer.MYServer") 'Создание объекта
    If Not IsObject(obj) Then
      MsgBox "Модуль интерфейса не установлен или установлен неправильно", vbInformation
      Score = False
      Set obj = Nothing 'Освобождение памяти от объекта интерфейса
      Exit Function

    Else

      Person = "AA"
      ClientID = "" 'Параметр зарезервирован для будущих версий
      RequestID = "" 'Параметр зарезервирован для будущих версий
      
      Call obj.Scoring(ClientID, RequestID, Person, seminputstring, semoutputstring)   'Вызов метода объекта

Написал так:

var
 fScoring : OleVariant;
  fTmpStr: String ;
begin
  fScoring := CreateOleObject('MYDCOMServer.MYServer');
  try
    fScoring.Scoring('', '', 'AA', '', '1', fTmpStr) ;
  finally
    fScoring := UnAssigned ;
  end ;
end;

Однако при выполнении строки fScoring.Scoring('', '', 'AA', '', fTmpStr) ;


происходит эксепшен с сообщение "Разрушительный сбой"