急急急!请问为什么我在Time1，下就不能发送字符串？？？？？？？？？？？？

急急急!请问我的程序为什么,服务器端不能收到ClientTest字符串,请问怎么回事?
Time1的inteval设置为1.ClientSocket和ServerSocket,都没问题,我把程序放到
一个单击按钮下,就没有问题,请问怎么回事??????????????????????????????
var count
procedure TClientMainForm.Time1Timer(Sender: TObject);
var
        Socket: TCustomWinSocket;
        ClientTest: String;
begin
        setComputerName('001');
        Count := Count+1;        if Count>1 then
        begin
                Time1.Enabled:=False;
                Count := 0 ;
                Exit;
        end;        ClientTest := 'ClientTest/'+GetComputerName+'/'+GetMacAddress;
        Client.Socket.SendText(ClientTest);
end;