麻烦高手帮忙将VB转换成DElphi

Question

Private Sub cmdIM_Click()
    Dim objAPI As RTXClient.RTXAPI
    Dim objIM As Object
    
    Set objAPI = CreateObject("RTXClient.RTXAPI")
    
    On Error GoTo ProcedureName_Err
        Set objIM = objAPI.GetObject("RTXPlugin.IM")
    
    objIM.Call 1, 1002
    
ProcedureName_Err:
    If Err.Description <> "" Then
        MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description
        Err.Clear   ' Clear the error.
    End If
    
   Set objAPI = Nothing
End Sub

Answer 1

不能调试，也不知对不对,仅供参考。procedure Form1.cmdIM_Click;
var
  objAPI,objIM:Varaint;
begin
  try 
    objAPI:=CreateOleObject('RTXClient.RTXAPI');
    objIM = objAPI.GetObject('RTXPlugin.IM');
    objIM.Call(1,1002);
  except
    on E: Exception do
    begin
       if E.Message<>'' then
         ShowMessage('Error # ' + E.Message);
    end;    
  end;
end;

Answer 2

还要在使用前Uses 一下ComObj

Answer 3

uses comobj;procedure TForm1.Button1Click(Sender: TObject);
var
 objAPI,objIM:variant;
begin
 try
    objAPI:=CreateOleObject('RTXClient.RTXAPI');
    objIM := objAPI.GetObject('RTXPlugin.IM');
    objIM.Call(1,1002);
  except
    on E: Exception do
    begin
       if E.Message<>'' then
         ShowMessage('Error # ' + E.Message);
    end;
  end;
end;

Answer 4

注册了相应的模块没有:
regsvr32.exe '模块全名'