Как узнать время в Delphi?

[cyberandom]

Задача такая

For i:= 1 to 100 do
begin
...
end;

Мне нужно узнать сколько времени исполнялся цикл (желательно в секундах) на данном копмьютере. Есть ли какая-то функция, позволяющая получить данное время, чтобы я вставил её в начало и в конец а потом просто вычел и получил бы время выполнения? И есть ли ещё метод попроще узнать время выполнения цикла?

[Пепел Феникса]

var Start:TTime;

Start:=Time;
//цикл
ShowMessage(TimeToStr(Time-Start));

вроде так, если не напутал ничего.

[Google2010]

var k:Cardinal;

k:=Gettickcount;
//цикл
k:=Gettickcount-k;
ShowMessage(inttostr(k div 1000));

[cyberandom]

Да, а как мне получить время в секундах? Там ведь в формате Ч:ММ:СС.

Всё, второй способ сработал на Ура, большое спасибо!