if ((FromClient) and (pck[1]=#$1F) and (ConnectName='Nick') and (NSetup=0)) then begin MyID:=ReadD(2); NSetup:=1; pck:=''; end;