constructor TTCPThread.Create;
begin
  inherited;
  Cnt := 0;
  Authenticated := false;
  TCPClient := ScktComp.TClientSocket.Create(nil);
  TCPClient.ClientType := ctBlocking;
  //TCPClient.ReadTimeout := 5000;
  TCPClient.OnConnect := OnConnect;
  TCPClient.OnDisconnect := OnDisconnect;
  TCPClient.OnRead := OnRead;
  TCPClient.OnError := OnError;
end;

destructor TTCPThread.Destroy;
begin
  TCPClient.Free;
  SetLength(ListArray, 0);
  inherited;
end;

procedure TTCPThread.Execute;
begin
  repeat
    if not TCPClient.Socket.Connected then
    begin
      TCPClient.Host := ListArray[Cnt].Host;
      TCPClient.Port := ListArray[Cnt].Port;
      try
        TCPClient.Active := true;
      except

      end;
      if Cnt = High(ListArray) then
      begin
        Cnt := -1;
      end;
      Cnt := Cnt + 1;
    end;
    Sleep(DataRecord.IntervalSIN);

  until Terminated;
end;

procedure TTCPThread.OnConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  SendAuthHandshake(Socket); // Autentifizierung beginnen
end;

procedure TTCPThread.OnDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  //
end;

procedure TTCPThread.OnError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  ErrorCode := 0;
  OnDisconnect(Sender, Socket);
end;

procedure TTCPThread.OnRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  MessageBox(0, 'test', 'test', 0);
end;