1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

function TWebSockServer.waitForFrame(AContext: TIdContext; timeout: Integer): TWebSockFrame;
var
  st:Cardinal;
  Str:AnsiString;
  R:TWebSockFrame;
begin
  st:=getTickCount()+Cardinal(timeout);
  Str:='';

  r:=TWebSockFrame.Create();
  Result:=nil;

  while (st>getTickCount()) do
    begin
      if (not AContext.Connection.Socket.InputBufferIsEmpty) then
        begin
          AContext.Connection.Socket.InputBuffer.ExtractToBytes(TBytes(Str));

          if DecodeRec(Str,r) then //Decodes Frame, returns false on error
            begin
              //write back unused memory
              AContext.Connection.Socket.InputBuffer.Write(TBytes(Copy(Str,r.Size,Length(Str))));

              Result:=R;
              exit;
            end;

          st:=getTickCount()+Cardinal(timeout); //increase timeout to wait for next data
        end;
    end;

  r.Free();
end;//<--hier gibt es den Fehler					

1:
2:
3:
4:
5:
6:

AContext.Connection.Socket.InputBuffer.ExtractToBytes(TBytes(Str));//<--Fehler

//durch folgendes ersetzen (B:TBytes)
AContext.Connection.Socket.InputBuffer.ExtractToBytes(B, -1, False, -1);
SetLength(Str, Length(B));
Move(B[0], Str[1], Length(B));