recvfrom geht nicht richtig

[nitschchedu]

Hallo leute ich habe mal wieder ein Problem.
Ich habe mit Socket rum Probiert
und bekomme vom recvfrom immer -1 zurück! ist da ein Type Falsch ?

Delphi-Quellcode:

var
  readstatus: Boolean;
  bytes: Integer;         //Anzahl der Ankommenden Bytes
  tsize: Integer;

  rbuffer: array of Char;
  //Stream der ankommt
  MemoryStream: TMemoryStream;
begin
  readstatus := True;

  //Auf die Größe stellen
  SetLength(rbuffer, BufferSize);

  tsize := SizeOf(SocketHandle.addr);

  while readstatus do
  begin

    bytes := recvfrom(SocketHandle.nduSock, rbuffer, BufferSize,
      0, SocketHandle.addr, tsize);

    if bytes > 0 then
    begin

      MemoryStream := TMemoryStream.Create;
      MemoryStream.WriteBuffer(rbuffer, BufferSize);

      if Assigned(OnRead) then
      begin
        OnRead(Self, MemoryStream, SocketHandle);
      end;

      MemoryStream.Free;
    end;

    if nduTThread.GetTerminated then
    begin
      Break;
    end;

  end;

könnt ihr mir helfen ?