経過時間を計るにはタイマーコンポーネントではなく、GetTickCountAPIを使う。
このAPIは単にWindows起動から経過した時間をDWORD型で返すだけの単純な関数。
function GetTickCount: DWORD;
経過時間はミリ秒単位なので注意。
処理時間を計るには以下のようにやればいい。
var
StartTime, EndTime: Integer;
begin
StartTime:= GetTickCount;
{計測したい処理の内容}
EndTime:= GetTickCount;
ShowMessage('経過時間:'+IntToStr(EndTime-StartTime)+'ms');
end;
最後のShowMessageで経過時間を表示する。
基本的に動作テストなどで使うのかな。