请问以下VB语句怎样用Delphi表示

Question

dim oK3login as object
dim oItem as object
dim oItemclass as object
dim oItemClassSet as objectSet oK3login=createobject("K3login.ClsLogin")
if not oK3login.checkLogin then exit sub
set oitem=Createobject(EBCGL.item)
Set oitemSet=Createobject(EBCGL.itemclass)
set oitem=oitemSet.createnew(101,0,"1100","李四")//Createnew这个函数是个Idispath类型
oitem.savechangeoitem=nothing
oitemclass= nothing
ok3login=nothing