Aktion auslösen, solange Taste gedrückt wird?

[Marco Steinebach]

Hallo zusammen,
wie kann ich folgendes Problem lösen:
Pseudocode:
solange TasteGedrückt
i := i + 1
EndSolange
Wenn Taste losgelassen,
i := 0
EndPseudocode
Ich hab's schon mit Keydown und Keyup probiert, Problem ist, wenn ich die Taste gedrückt halte, wird jedesmal ein keydown-keyup ausgelöst, und mein i zählt niemals hoch.
Das muß man doch irgendwie lösen können?

Hiiiiilfe!
Viele Grüße
Marco