زمان اجرای یک دستور

[FirstLine]

با سلام
چجوری میتونم زمان اجرای یک تابع را بر حسب ثانیه بدست بیاورم؟ (این تابع عمل جستجو در بانک را انجام میدهد)
با تشکر

[Delphi KDE]

var
i : integer ;
begin
i := GetTickCount ;

//Your Code
ShowMessage(inttostr(GetTickCount-i));
end;