ReceiveBuf - Speichert nicht alles

[butch]

Ok, ich bin nun nen bisl weiter gekommen. Mein Server schickt dem client die Nachricht "ok" aber irgendwie kommt immer nur ein "k" beim client an ( server wurde getestet, da geht alles richtig)

Delphi-Quellcode:

var
 recv: string[2];
 VERSION: string;
begin
 VERSION := '0001';
 TcpClient.SendBuf(VERSION[1], length(VERSION));    // Server Version schicken
 while TcpClient.WaitForData(1000) do
 begin
  TcpClient.ReceiveBuf(recv, sizeof(recv));       // Nachricht darauf empfangen
  showmessage(recv);
 end;
 TcpClient.Close;
end;

Ich hoffe ihr koennt mir helfen