Pascal timer問題

Pascal 好像並不如 C++或 VB那樣，有build in 的 Timer Function。
圖片參考：http://hk.yimg.com/i/icon/16/2.gif

你只可以用delay(integer) 這一個function去把程式暫停，暫停多久則要取決於傳入的integer參數。
透過程式的停頓，可以做出所謂的計時器或倒數器。

例如:
uses crt;

delay(2000);

應該就等於倒數二十秒。
但這一種 Timer 的方式相當於 VC 的 SLEEP Function，並不是太好，因為在進行 delay 時所有程式的運作都會停止。

2006-11-28 15:58:23 補充：
下面那一位 herberl0427 網友，發問者問的是用PASCAL去整TIMER，而不是要讀取時間，什麼 GetDate(Year, Month, Day, DayOfWeek);GetTime(Hour, Min, Sec, MiniSec)等等...完全是從網上隨便抄襲回來，想以長篇大論取勝，誤導別人，請自律﹗

delay(2000); 是2秒

==============================
Turbo Pascal for Dos
==============================

program Clock;
uses Dos;
var
Year, Month, Day, DayOfWeek: word;
Hour, Min, Sec, MiniSec: word;

begin
GetDate(Year, Month, Day, DayOfWeek);
GetTime(Hour, Min, Sec, MiniSec);
writeln('Today is ', Day, '/', Month, '/', Year);
writeln('This week remains ', 7 - DayOfWeek, ' days.');
writeln('And the time now is ', Hour, ':', Min, ':', Sec, '.', MiniSec);
end.

==============================
Turbo Pascal 1.5 for Windows
==============================

program Clock;
uses WinDos, WinCrt;
var
Year, Month, Day, DayOfWeek: word;
Hour, Min, Sec, MiniSec: word;

begin
GetDate(Year, Month, Day, DayOfWeek);
GetTime(Hour, Min, Sec, MiniSec);
writeln('Today is ', Day, '/', Month, '/', Year);
writeln('This week remains ', 7 - DayOfWeek, ' days.');
writeln('And the time now is ', Hour, ':', Min, ':', Sec, '.', MiniSec);
end.

==============================
Variables of Procedures
==============================

1. GetDate ( 年份 , 月份 , 日期 , 星期幾 );

2. GetTime ( 小時 , 分鐘 , 秒數 , 毫秒 );

** 所有 Variables 要宣告為 word

in PASCAL, you can use settimer function
(in the build-in library)