计算程序运行时间 毫秒

var  
      StartTime,EndTime:integer;  
  begin  
      StartTime:=GetTickCount;   
      //   
      EndTime:=GetTickCount;  
      showmessage('用时'+floattostr((EndTime-StartTime)/1000.0)+'秒');  
  end;