Make(delphi)
ver(4.04 build 185)
Add(MainForm,13287119,154,112)
{
 Width=273
 Height=113
 Position=1
}
Add(Edit,4363003,301,140)
{
 Left=140
 Top=10
 Width=75
 Text="80"
 Alignment=1
}
Add(Button,13770907,203,259)
{
 Left=85
 Top=45
 Width=95
 TabOrder=-1
 Caption="IsOpen"
}
Add(InlineCode,10762935,301,259)
{
 WorkPoints=#19:doServerSocket1Port|
 EventPoints=#8:onResult|
 DataPoints=#4:Port|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|39:uses kol,Share,Debug, Windows, Winsock;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|30:    Port, onResult: THI_Event;|64:    procedure doServerSocket1.Port(var _Data:TData; Index:word);|5: end;|0:|15:implementation |0:|0:|27:ServerSocket1.Port:= 4899 ;|28:ServerSocket1.Active:= True;|0:|0:|71:procedure THiAsmClass.doServerSocket1Port(var _Data:TData; Index:word);|5:begin|71:  _hi_onEvent(onResult, ord(ServerSocket1.Port(ToIntegerEvent(Port))));|4:end;|0:|4:end.|
}
Add(Message,342483,392,259)
{
 Message="Успех!!!!!!"
}