4つの方法デルファイの遅延のために

 1、懸濁、CPUを占有しない
SLEEP
CPU占め、2、中断されていない
（ミリ秒用：整数）手順の遅延を、
VARの
FirstTickCount：倍長整数;
始める
FirstTickCount：のGetTickCountを=。
REPEAT
によってApplication.ProcessMessagesを、
（（のGetTickCount-FirstTickCount）まで> = （ミリ秒の場合）倍長整数）;
END;
3、タイマー。
手順timerfun（ハンドル：THandle; MSG：ワード; identer：ワード; dwTime：ロングワードがある）; _stdcall;
始める
ShowMessage（ 'ポイント'）;
KillTimer（）は、identerを扱います; //オフタイマー
終了。

取り扱いidenterです//タイマー
手順TForm1.Button1Click（送信者：TObjectを）を、
VaRの
identer：整数;
始める
   identer：=のSetTimer（0,0,2000、@のtimerfun）;
   [終了identer IF = 0; //タイマーが正常に作成されていません。
END;
4、中断しないCPU占有していない
機能TForm1.HaveSigned（MaxWaitTime：枢機卿）：ブール;
VAR I：整数;
VARのWaitedTime：枢機卿を、
開始
          WaitedTime：= 0;
          しばらく（WaitedTime
          開始
                  ）、偽SleepEx（100;
                  株式会社があります（WaitedTime、100）
                  ;によってApplication.ProcessMessages
          エンド
エンド。