∩ ∩
　| ∪ |
　|　 〜　　　　　..／￣￣￣￣￣￣￣
　| ∧ ∧　　　／　１ﾏｿ回ﾙｰﾌﾟして前後にGetTickCount
　| i ,,ﾟДﾟ) ＜　　　って常套手段ぢゃないの？
　Ｕ　Ｕ　　　　＼＿＿＿＿＿＿＿＿

var
Tm:WORD;
TmStr:string;
FuncLoop:integer;
begin
Tm := GetTickCount();
for FuncLoop := 0 to 9999 do
begin
{処理}
end;
Tm := GetTickCount() - Tm;
TmStr := Format('%dmsだよもん',[tm]);
MessageBox(0,PChar(TmStr),'べんち幕',MB_OK);