时间戳

循环等待20秒:
var
  dwStart,dwStartAll:DWORD;

    dwStart:=GetTickCount;
    bRet:=False;
    while ( GetTickCount-dwStart )<20*1000 do
    begin
      sErr:='';
      bRet:=g_dtCls.CheckServerIsConnected(msgRecv.autoId,sErr);
      if bRet then
      begin
        AddLog('连接成功');
        Break;
      end;
    end;