Add(TCP_ServerEx,10697847,210,266)
{
}
BEGIN_SDK
  Add(EditMultiEx,10982701,3,3)
  {
  }
  Add(TCP_Connection,3450609,35,105)
  {
  }
END_SDK

Build start...
Generated code
Create project...
Command line: dcc32.exe "C:\HiAsm\3_63b162\Elements\delphi\code\Project2.dpr" "-UC:\HiAsm\3_63b162\." -Q "-EC:\HiAsm\3_63b162\
Borland Delphi Version 12.0 Copyright (c) 1983,98 Inprise Corporation

C:\HiAsm\3_63b162\Elements\delphi\code\TCP.pas(82) Warning: Return value of function 'MWnd' might be undefined

C:\HiAsm\3_63b162\Elements\delphi\code\TCP.pas(117) Warning: Return value of function 'ListenFunc' might be undefined

C:\HiAsm\3_63b162\Elements\delphi\code\TCP.pas(122) Warning: Return value of function 'ReadFunc' might be undefined

C:\HiAsm\3_63b162\Elements\delphi\code\TCP.pas(16) Hint: Private symbol 'FHandle' declared but never used

C:\HiAsm\3_63b162\Elements\delphi\code\hiTCP_Client.pas(38) Warning: Method 'Destroy' hides virtual method of base type 'TObject'

C:\HiAsm\3_63b162\Elements\delphi\code\hiTCP_Client.pas(84) Hint: Variable 'dt' is declared but never used in 'THITCP_Client._OnRes'

C:\HiAsm\3_63b162\Elements\delphi\code\hiTCP_Client.pas(23) Hint: Private symbol '_OnError' declared but never used

C:\HiAsm\3_63b162\Elements\delphi\code\hiTCP_ServerEx.pas(51) Error: Undeclared identifier: 'AddInstance'

C:\HiAsm\3_63b162\Elements\delphi\code\hiTCP_ServerEx.pas(54) Error: Undeclared identifier: 'Attach'

C:\HiAsm\3_63b162\Elements\delphi\code\hiTCP_ServerEx.pas(65) Error: Undeclared identifier: 'RemoveInstance'

C:\HiAsm\3_63b162\Elements\delphi\code\Project2.dpr(9) Fatal: Could not compile used unit 'hiTCP_ServerEx.pas'
End build