VB kode oversat til Delphi

Option Explicit
Dim WithEvents ads As TcAdsDll.TcAdsSync

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
  (lpDest As Any, lpSrc As Any, ByVal Length As Long)


Private Sub Form_Load()
    Dim client As TcAdsDll.TcClient
    Dim netId As AmsNetId
   
    Set client = CreateObject("TcAdsDll.TcClient")

    netId.b(0) = 172
    netId.b(1) = 16
    netId.b(2) = 100
    netId.b(3) = 201
    netId.b(4) = 1
    netId.b(5) = 1
    Set ads = client.Connect(netId, 800)
End Sub