假設今天使用者按下一個button讓程式去執行一個動作

那

計算他一共執行了多久並顯示到edit上的程式碼該怎麼寫

還有如果想用一個動態顯示圖顯示他的執行進度的程式碼該怎麼寫

procedure Tform.ButtonClick (sender : tobject);
var
temptime : tdatetime;
begin
temptime := now;
try
// Do whatever you like
finally
edit1.text := formatdatetime('hh:nn:ss:zzz', now - temptime);
end;
end;

// This is only an example, many methods do the same

謝謝

t1 = getTickCount

you code ......

t2= getTickCount

showmessage(inttostr(t2-t1))