ProcessKey, aber woher?

[whiteshark]

Diesen Quelltext mein ich:

// Überprüfen, ob W gedrückt wurde (Drehung um X-Achse)
if Keys[ord('W')] then
begin
//--- Die Rotation um die X-Achse erhöhen. ---------------------------------
RotateX := RotateX + 0.8;
//--- Sollte RotateX größer als 360 Grad sein, es auf 0 setzen. Dadurch
// wird der Drehungs-Bereich auf 0 - 360 Grad begrenzt.
if RotateX > 360 then RotateX := 0;
end;

// Überprüfen, ob W gedrückt wurde (Drehung um X-Achse)
if Keys[ord('S')] then
begin
//--- Die Rotation um die X-Achse erniedrigen. -----------------------------
RotateX := RotateX - 0.8;
//--- Sollte RotateX kleiner als 0 Grad sein, es auf 360 setzen. Dadurch
// wird der Drehungs-Bereich auf 0 - 360 Grad begrenzt.
if RotateX <= 0 then RotateX := 360;
end;

Quelle des Quelltextes: www.delphigl.com