Delphi - kako prepreči prečiti več zaporednih klikov gumba

V Delphiju sem napisal preprost program , na katerem uporabniki s pritiskom na enega od gumbe gumb zaganjajo posamezne podprograme iz CD.
Problem pa se pojavi, ker se nekateri podprogrami zaradi velikosti nalagajo nekaj sekund iz CD, uporabniki pa medtem živčno pritiskajo na gumb za start, tako da zaganjajo program večkrat in samo še podaljšujeo potrebni čas zagona

Kako bi v spodnjo kodo za zagon vgradil nekakšno blokado - timeout, da sprejme program samo 1 klik (zagon ukaza open ) npr. vsakih 5 sekund

Je to mogoče ?



procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(Handle, 'open',
'Prog1.exe',nil,nil,SW_SHOWNORMAL);
end;

end.

Jezes no, ne s tezkim topnistvom nad bolho... Pusti timerje in sistemske resource tam, kjer jih res kdo rabi. Tole se da cisto enostavno s kaksnim GetTickCount pogledat, koliko casa je poteklo od zadnjega klika na gumb.
Cisto prava moznost pa je seveda drugje kot igranje s timerji - preden zazenes nov proces, pogledas ce kak tak proces ze tece in ga ne zaganjas po nepotrebnem se enkrat.

@LoneWolf: Ok Tvoja rešitev je preprostejša. Timerji so bili prva stvar ki mi je pač padla napamet.

@fonziz:
v Form private section dodaj

firstAppStartTime: Longword;

v form OnCreate dodaj

firstAppStartTime := 0;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
 //time is in ms
 if GetTickCount - firstAppStartTime > 5000 then begin
 firstAppStartTime := GetTickCount;
 ShellExecute(Handle, 'open', 'Prog1.exe',nil,nil,SW_SHOWNORMAL);
 end;
 end;