PHP Socketverbindung in Delphi umbauen(kein Datenempfang)

[omata]

Versuch es doch mal so...

Delphi-Quellcode:

procedure TForm1.CSocketRead(Sender: TObject; Socket: TCustomWinSocket);
var a, b:string;
    i:integer;
begin
  a:=Socket.ReceiveText;
  b:='';
  for i:=7 to length(a) do
    b:=b+a[i];

  Log.Items.Add('[' + TimetoStr(now) + '] --> Receive --> ' + b);
end;

#0 Steht für das Zeichen 0.

MfG
Thorsten