Dann versuch doch mal folgendes:
Code:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var i: integer;
begin
// Prüfen, ob die Taste schonmal gedrückt wurde
for i := 1 to 9 do begin
if Keypressed[i] = Key then exit; // steigt aus, wenn die Taste schonmal gedrückt wurde...
end;
// Weiter im Text...
if (voll = 0) or (voll = 2) or (voll = 4) or (voll = 6) or (voll = 8) then
begin
for i := 1 to 9 do
if Keypressed[i] = 0 then
begin
Hilft das weiter?
Matthias