das war nicht mein code sondern der tipp etwas weiter oben
if GetAsyncKeyState(VK_LMENU) < 0 then
hatte ich ja bereits im ersten posting erwähnt das dies nicht funktioniert wie es soll
ziel ist es das das funktioniert:
if (GetAsyncKeyState(VK_LMENU) < 0) and (GetAsyncKeyState(Ord('S')) < 0) then
was dementsprechnd ja auch nicht funktioniert, GetAsyncKeyState(Ord('S') einzeln funktioniert hingegen, nur die ALT-taste nicht die macht das was ich oben beschrieben habe