金碟K/3中提供了一个登陆窗体的com+的实现方法，只要调用该方法就能使用他的现成窗口

Question

VB代码如下：
Option Explicit
Private K3Login As Object '当前连接对象
Sub main()
    On Error GoTo HERROR
    Set K3Login = CreateObject("K3Login.ClsLogin")
    If Not K3Login.CheckLogin Then Err.Raise 1000, , "登录不成功"
    
    Dim frm As frmLookUp
    Set frm = New frmLookUp
    frm.Show vbModal
    Unload frm
    Set frm = Nothing
    Set K3Login = Nothing
    End
    Exit Sub
    
HERROR:
    MsgBox Err.Description
    End
End Sub我想在delphi使用该窗体，该如何写代码？金碟只提供了vb的实现代码，没有delphi的，我想delphi也是可以的吧，请大家帮忙！

Answer 1

这个问题，问的很丢人，已经解决了