var
start_time : TDatetime;
end_time : TDatetime;
h,m,s,ms : Word;
timestr : string;

begin
//開始
	end_time := 0;
	start_time := Time;

（...各処理開始）

//終わるとき

end_time := end_time +time - start_time;
decodetime(end_time,h,m,s,ms);
timestr := format('%.2f',[ms /1000.0+s+60*(m+h*60)]);