Spiel mit Tasten

[Sharky]

Hai,

nur mal als Tip:

Anstelle deiner For do Schleife kannst Du auch einfach rechnen.

Einfach ein Array [0..9] Of Boolean und beim Start alles auf False setzen.

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i: integer;
begin
  if (Keypressed[ORD (key) - 48)]) then 
   begin
    exit;    // steigt aus, wenn die 
   end;
  Keypressed[ORD (key) - 48)] := True // als gedrückt kenzeichnen
 . . . 
 . . . // Weiter im Code