delphi中socket编程的recv小问题

最近写了一个小小的socket程序，服务端用c编写，随时监听来自客户端的连接请求，一旦连接上，就向客户端发送一串数字，但是我用delphi写的客户端的界面程序为什么收不到完整的数字串呢？问题是总是收不到第一个数字，而后面的四个可以收到（我一次发5个数字），但是我用c写的客户端就可以收到全部字符，真没法了，还望各位大虾看看什么原因啊，下面是受数据的两句话：
procedure TForm1.Button2Click(Sender: TObject);
var
buf:shortstring;
begin
 recv(client,buf,6,0);
 dushu.Text:=buf;
 closesocket(client);
end;