Fußball Pong plz Help ich kann net mehr ;-)

[Niggha]

also folgendes problem der quelltext wird richtig compiliert und weist keine fehler auf meiner ansicht nach, was natürlich nicht gerade stimmen muss da ich gerade anfänger bin. das problem liegt daran das wenn ich das programm starte der ball einfach nicht erstellt wir da kann ich machen was ich will und wenn ich ihn net sehe bewegt er sich natürl. auch net . hier mal der quelltext. ist erst halbfertig...

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel2: TPanel;
    Timer1: TTimer;
    Panel1: TPanel;
    Keeper: TImage;
    Image1: TImage;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  ball: TBitmap;
  public

  end;

var
  Form1: TForm1;
  posx,posy,speedx,speedy,breite,hoehe:Integer;
implementation

{$R *.DFM}


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
repaint;

breite:=745;
hoehe:=441;

//Torwartbewegung Hoch-Runter
If Key=vk_down then Keeper.Top:=Keeper.Top+5;
If Key=vk_up then Keeper.Top:=Keeper.Top-5;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Aprallen von Wänden
if posy >= hoehe-60  then speedy:= - speedy   ;
if posy <= -40       then speedy:= - speedy   ;

//Ball
Canvas.Draw(posx+40,posy+40, ball);

//Bewegung
posx:= posx + speedx;
posy:= posy + speedy;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Ball create
ball:= TBitmap.Create;
ball.LoadFromFile('ball1.bmp');
//Geschwindigkeit des Balls
speedx:=2;
speedy:=2;
end;
End.

achso ich will keinen gegenspieler nur alle wände zum abprallen und daher die frage ist der ansatz mit y wänden schon mal richtig?

schon mal im voraus vielen dank für eure hilfe

Mfg

euer niggha