TCP/IP anfrage clonen

[Evian]

Also ich habe es jetzt mal so probiert...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
VAR
str,hexstr : String;
i : Integer;
begin
  with IdTCPClient1 do begin
    Host := '87.237.38.200';
    Port := 26000;
    Connect;
    try
      str := ReadLn;
      for i := 1 to length(str) DO
      BEGIN
        hexstr := hexstr + ' ' + (IntToHex(Word(Str[i]), 2));
      END;
      Listbox1.Items.Append(hexstr);
    finally
      Disconnect;
    end;
  end;
end;

und es werden mir promt die ersten 22 Byte's(in Hexadezimal) des Statuspackets angezeigt... aber laut dem Sniffer sind es 41 BYTE an Informationen.. in dem Packet. Warum werden die Restlichen Byte nicht mitgelesen?