THold

pt 

InitServerData

pt 

Get_ObjectName

pt 

Set_ObjectName

pt 

Get_Amount

pt 

Set_Amount

Create

Destroy

Connect

ConnectTo

Disconnect

TOleServer

GetServer

InitServerData

Create

Connect

Disconnect