Zitat von
thomas2009:
if ((Key = 17) and (Key = 39)) then begin
Eigentlich sollte an der Stelle die Warnung vom Compiler erscheinen, dass die Bedingung nie erfüllt werden kann. Wie auch? Wie soll ein Wert denn gleichzeitig 17 UND 39 sein?
Wenn du den Status der Tasten Shift, Strg usw. auslesen möchtest, dann schau dir doch einmal den Wert des Parameters Shift an.