Genau wie DerAndereMicha gesagt hat: MAch einen Timer, eine Variable mit dem Startwert 5 (in Form1.OnActivate: variable:=5; ) und dann Timer Intervall auf 1000 stellen und in den Timer:
Delphi-Quellcode:
zeit:=zeit-1;
if (zeit=0) then
begin
//Game Starten
Timer1.Destroy;
end;
fertig!
//edit: Fehler verbessert!
//edit2: Fehler 2 verbessert!
