Zeichnen

[delphi-projekt]

Also meinst du das so:

procedure TForm1.Timer2Timer(Sender: TObject);
var b:byte;

begin
if GetAsyncKeyState(ord('S'))
or GetAsyncKeyState(ord('W'))
or GetAsyncKeyState(ord('D'))
or GetAsyncKeyState(ord('A'))
then
begin

Ab jetzt weiß ich aber nicht wie ich da weiter schreiben soll.
Kannst du mir nochmal helfen.