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

[Hovers]

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

[liufuyahong]

不能调试，也不知对不对,仅供参考。

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;

[liufuyahong]

还要在使用前Uses 一下ComObj

[Hovers]

第一条语句就运行不了啊？

[海天候]

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;

[liufuyahong]

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