Delphi-Quellcode:
Procedure wait(Time:Integer);
Var x:Dword;
Begin
Time := Time * 20;
x := GetTickCount ;
While x - time < GetTickCount do Application.ProcessMessages;
End;
nur mal so zu darübernachdenken,
GetTickCount gibt Dir die Anzahl der Millisekunden seit
dem Start des Computers aus.
(Aus der Hilfe: GetTickCount is a Cardinal function used
to retrieve the number of milliseconds since the computer was started.)
Die ziehst von dieser Zahl x*20 Millisekunden ab, was eine sehr
kurze Zeitdauer ist.
Deine switch Methode wird in 240ms durchlaufen, da brauchst Du ein schnelles
Auge.
Grüße
Klaus