Make(delphi) ver(4.04 build 185) Add(MainForm,2953706,63,119) { Point(onClose) link(onCreate,10250039:doOpen,[]) link(onClose,10250039:doClose,[]) } Add(TCP_Server,10250039,126,133) { Port=777 link(onRead,14061451:doEvent1,[]) } Add(Memo,1663203,252,133) { Left=180 Top=145 Align=5 } Add(BlockFind,416586,210,133) { IncludeBlock=1 StartBlock="GET /" EndBlock="HTTP/" link(onSearch,1663203:doAdd,[]) } Add(StrList,8702102,210,189) { Strings=#22:HTTP/1.1 404 Not found|32:Server: mywebserver/1.0.0(Win32)|18:Content-Length: 27|0:|26:| } Add(DoData,10876968,210,252) { link(onEventData,10250039:doSend,[(254,258)(254,298)(114,298)(114,153)]) link(Data,8702102:Text,[]) } Add(Hub,14061451,182,133) { link(onEvent1,416586:doSearch,[]) link(onEvent2,10876968:doData,[(203,146)(203,258)]) }