varI: Integer;begin//Integer 類型是4字節(32位)有符號整數, 最高位是符號位, 如果是正數, 符號位 是 0、負數的符號位是1

var　B: Byte;　W: Word;　C: Cardinal;begin　{Byte 是1字節(8位)無符號整型, 其最大值是 111111112}　a

//聲明GetSystemPowerStatus(　var lpSystemPowerStatus: TSystemPowerStatus {TSystemP

//聲明:GetLogicalDriveStrings(　nBufferLength: DWord; {緩沖區大小}　lpBuffer: PAnsiChar　

//聲明:GetLogicalDrives: DWord; {無參數}//返回值:返回值的二進制右邊第一位為 1 表示驅動器 A: 存在;返回值的二進制右邊第

//聲明:QueryPerformanceCounter(　var lpPerformanceCount: TLargeInteger {獲取定時器每秒的頻率

//顯示圖像var　g: TGPGraphics;　img: TGPImage;begin　g := TGPGraphics.Create(Self.Canv

//比例變化var　g: TGPGraphics;　p: TGPPen;　rect: TGPRect;begin　g := TGPGraphics.Creat

//閉合曲線var　g: TGPGraphics;　p: TGPPen;　sb: TGPSolidBrush;　pts: array[0..4] of TGP

//畫曲線var　g: TGPGraphics;　p: TGPPen;　pts: array[0..4] of TGPPoint;begin　g := TGP

//畫貝塞爾曲線var　g: TGPGraphics;　p: TGPPen;begin　g := TGPGraphics.Create(Canvas.Hand

//多邊形描邊與填充var　g: TGPGraphics;　p: TGPPen;　sb: TGPSolidBrush;　pts: array[0..4] of

//使用畫刷建立畫筆var　g: TGPGraphics;　img: TGPImage;　tb: TGPTextureBrush;　p: TGPPen;beg

//虛線樣式var　g: TGPGraphics;　p: TGPPen;begin　g := TGPGraphics.Create(Canvas.Handle

//線帽var　g: TGPGraphics;　p: TGPPen;begin　g := TGPGraphics.Create(Canvas.Handle);

一個小小的Delphi時間控制示例，獲取系統時間，費話不多說了，看運行截圖吧：具體代碼如下：vIEw sourceprint?01unit Unit

Delphi通過網絡同步時間的功能，功能方面類似於Windows系統時間設置面板中的同步服務器時間，這個界面有些粗糙哈，截圖如下所示：Delphi同步網絡服務

Delphi修飾字符串為打字效果，文字一個接一個的出現，看上去挺不錯，Delphi新手可借此來學習一下相關知識，代碼如下：vIEw sourceprint?0

Delphi實現嵌入式的時鐘效果，電子鐘，帶指針走動動畫，運行程序後始獲取Windows當前時間，挺基礎的代碼：vIEw sourceprint?01unit

Delphi倒計時，毫秒級別，獲得系統的高性能頻率計數器在一毫秒內的震動次數，如果時鐘震動次數超過10毫秒的次數則刷新edit3的顯示，顯示從開始記數到記數實