nSendBuf:=0;
setsockopt(FCashSocket, SOL_SOCKET, SO_SNDBUF, @nSendBuf, SizeOf(nSendBuf));

function IsCompleteTCP(const Buffer: ShortString): Boolean;
begin
 Result := False;
 if Length(Buffer)>0 then
 begin
  if Ord(Buffer[1])=Length(Buffer)-1  then Result:=True;
 end;
end;

procedure EthernetStart(hPort:THandle; LogN:Byte; out Status: TStatusRec);
 var Databuffer, Reply: string;
 Transfer:Integer;
 hTime:PTimeVal;
 SetR:TFDSet;
 StrLen, ModeSelect, Shot:Integer;
begin
 Databuffer:=Chr($05) + Chr($05) + Chr($01)+ Chr($00) + Chr(LogN) + Chr($00); //query for opening the SET
 //отправить
 Transfer:= Send(HPort,Databuffer[1], Length(Databuffer),0);
 if Transfer<0 then
 begin
   Status.ErrKind := erTCP;
   Status.TCPCode := WSAGetLastError;
   Logs.SaveLog('Command: Start. Error:Send Code:'+IntToStr(Status.TCPCode) +SysErrorMessage(Status.TCPCode));
   Exit;
 end;

 //принять
 Reply:='';
 while not IsCompleteTCP(Reply) do
 begin
   New(hTime);
   hTime^.tv_sec:=2;
   hTime^.tv_usec:=500000;
   FD_ZERO(SetR);
   FD_Set(HPort,SetR);
   ModeSelect:=Select(0,@SetR,nil,nil,hTime);
   Dispose(hTime);

   if ModeSelect>0 then
   begin
     //if FD_IsSet(hPort,SetR) then
     begin
       StrLen:=0;  Shot:=0;
       repeat
         if IoctlSocket(hPort,FIONREAD,StrLen)=SOCKET_ERROR then
         begin
           Logs.SaveLog('Command: Start. Error:IoctlSocket=SOCKET_ERROR');
           Status.ErrKind:=erTCP;
           Status.TCPCode:=WSAGetLastError;
           Exit;
         end;
         if StrLen=0 then Windows.Beep(800,20);
         Inc(Shot);
       until (StrLen>0) or (Shot>=50);

       if StrLen>0 then
       begin
         SetLength(Databuffer, StrLen);
         if ReadFromSocket(hPort, DataBuffer[1],StrLen,Status)>0 then
         begin
           Reply := Reply + DataBuffer;
         end else
         begin
           Logs.SaveLog('Command: Start. Error:ReadFromSocket');
           Status.ErrKind:=erTCP;
           Status.TCPCode:=WSAGetLastError;
           Exit;
         end;
       end else
       begin
         Logs.SaveLog('Command: Start. Error:IoctlSocket answer 0');
         Status.ErrKind:=erTCP;
         Status.TCPCode:=0;
         Exit;
       end;
     end;
   end else
   begin
     Logs.SaveLog('Command: Start. Error:select');
     Status.ErrKind := erTCP;
     Status.TCPCode := WSAGetLastError;
     Exit;
   end;
 end;
 //
 if Length(Reply)>0 then
 begin
   //парсер ответа железки
 end;
end;

if Ord(Buffer[1])=Length(Buffer)-1  then Result:=True;