懂VB的给翻译成DELPHI吧，谢谢

[shuihan20e]

Dim objApi As Object
Dim objApp As Object

// objApi,objApp:object;

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

//Server,Port,Password,UserName:PChar

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

Set objApi = CreateObject("RTXClient.RTXAPI") //这句咋写？
// objApi:=CreateOleObject??

On Error GoTo ProcedureName_Err
Set objApp = objApi.GetObject("KernalRoot")

//objApp:=objApi.GetObject???

objApp.Login Server, Port, txtUsername.Text, Password ' 传入服务器地址,端口,用户名,密码 登陆

//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

//set??

[gzmhero]

uses comobj;

var
objAPI,objIM:variant;
begin
try
objAPI:=CreateOleObject('RTXClient.RTXAPI');
objIM := objAPI.GetObject('KernalRoot');
......................
except
on E: Exception do
begin
if E.Message<>'' then
ShowMessage('Error # ' + E.Message);
end;
end;


end;

[gzmhero]

uses comobj;

var
objAPI,objIM:variant;
begin
try
objAPI:=CreateOleObject('RTXClient.RTXAPI');
objIM := objAPI.GetObject('KernalRoot');
......................
except
on E: Exception do
begin
if E.Message<>'' then
ShowMessage('Error # ' + E.Message);
end;
end;


end;

[shuihan20e]

Dim objApi As Object
Dim objApp As Object

// objApi,objApp:varient;

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

//Server,Password,UserName:PChar ;
//port:integer;
//server:=PChar(edtuser.text);
//port:=strtoint(edtport.text);
//username:=PChar(edtuser.text);
//password:=pchar(edtpass.text);

objApp.Login Server, Port, txtUsername.Text, Password ' 传入服务器地址,端口,用户名,密码 登陆

//objApp.Login (server,port,username,password); //这个不对，未指定的错误

[shuihan20e]

Set objApi = Nothing

这个不需要？

[僵哥]

objAPI := Unassigned;

[shuihan20e]

谢谢，已解决

[zhangxc]

//objApp.Login (server,port,username,password); //这个不对，未指定的错误

这个是怎么解决的？