vb翻译成DELPHI报错
VB

Dim objApi As Object
Dim objApp As Object

Dim Server As String
Dim Port As Long
Dim Password As String
Dim UserName As String

Server = txtServer.Text
Port = txtPort.Text
Password = txtPassword.Text

Set objApi = CreateObject("RTXClient.RTXAPI")

On Error GoTo ProcedureName_Err

Set objApp = objApi.GetObject("KernalRoot")
objApp.Login Server, Port, txtUsername.Text, Password ' 传入服务器地址,端口,用户名,密码 登陆

ProcedureName_Err:
If Err.Description <> "" Then
MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear
End If

Set objApi = Nothing

End Sub

DELPHI

var
objapi,objapp:Olevariant;
Server,Username,Password: string;
Port :Integer;
begin
Server := '192.168.176.7';
Port := 8000;
Password := '';
Username := 'zxc';

objapi := CreateOleObject('RTXClient.RTXAPI');
objapp := objapi.GetObject('KernalRoot');
objApp.Login(Server,Port,Username,Password);
objAPI := Unassigned;

objApp.Login(Server,Port,Username,Password);这句报未指定的错误
[解决办法]
Better import RTXClient ActiveX to delphi and import wizard will create the wrapper unit via which you can see what methods are exposed.

//Ali