>>260
GetTickCountですよね。ありがとうございます。
これ、TDateTimeに代入しても、Integerに代入しても大丈夫なんですね。
具体的に使ってみたかったんですが、

procedure TForm1.Button1Click(Sender: TObject);
var
　T: TDateTime;
begin
　T := GetTickCount();
　ShowMessage(FormatDateTime('hh:nn:ss', T));
end;

これはどこがダメですか？00:00:00と出ます。

>>261
なるほど、ローカルな関数みたいな感じでしょうか、ありがとうございます。
ヘルプに載ってますか？
俺のには載ってないみたいですが・・・。
キーワードで調べても出てきません。