Tastatur problem

[Andi28]

Moin,

hab mal wieder n Problem bei meinem Pong spiel

undzwar soll der Ball nachdem er ins ausgegangen ist von dem gegnerischen Spieler weggeschossen werden
und dafür wollte ich für jeden Spieler eine Taste zum egschiesssen programmieren
bei mir sieht es so aus

Delphi-Quellcode:

  procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
  begin
//Ball wegschießen blauer Spieler  ; mit q
  if   (shape1.top=492)
  and (shape1.left=251)
  and (dx=0)
  and (dy=0)
  and (Key=d)
   then
   begin dy:=1;
         dx:=1;
         end;

  //Ball wegschießen roter Spieler ; mit l
  if (shape1.top=89)
  and (shape1.left=251)
  and (dx=0)
  and (dy=0)
  and (Key=l)
   then
   begin dy:=-1;
         dx:=-1;
      end;
      end;

aber das funtkioniert nicht ganz

vielleicht weiß ja wer Rat