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

Question

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:PCharServer = txtServer.Text
Port = txtPort.Text
Password = txtPassword.TextSet 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??

Answer 1

  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;   

Answer 2

  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;   

Answer 3

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); //这个不对，未指定的错误

Answer 4

Set objApi = Nothing 这个不需要？

Answer 5

//objApp.Login (server,port,username,password); //这个不对，未指定的错误这个是怎么解决的？