Pong Spiel - Ball bewegt sich nicht

[Nils_13]

Ich würde vorschlagen, dass du dich mal im Forum umhörst, so wird das nichts, vorallem, weil zumindest ich nicht ansatzweise ein Pong entdeckt.
Hier mal der verschönerte Code (ein Teil davon):

Delphi-Quellcode:

var
  frmMain : TfrmMain;
  d       : Integer = 5;
  f       : Integer;
  g       : Integer;
  x5      : Integer = 150;
  y5      : Integer = 100;
  x6      : Integer = 180;
  y6      : Integer = 130;

implementation

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  img.Canvas.Brush.color := clWhite;
  img.Canvas.Rectangle(0, 0, 600, 400);
  img.Canvas.Brush.Color :=clMaroon;
  img.Canvas.Ellipse(x5, y5, x6, y6);
end;

procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  img2.Canvas.Brush.Color := clNavy;
  img2.Canvas.Rectangle(100, 100, 150, 200);
  if (GetAsyncKeyState(VK_UP) <> 0) then
    img2.Top:=img2.top - d;
  if (GetAsyncKeyState(VK_DOWN) <> 0) then
    img2.Top:=img2.top + d;
end;