Form wird nach dem compilieren nicht angezeigt

[fox67]

Hallo
Seit kurzem hab ich wieder angefangen mit Delphi zu programmieren und probier zur Zeit hauptsälich eigenen Klassen zu programmieren und so weiter
Bei diesem Program wollte ich auch gleich mal die repeat Schleife ausprobieren

Code:

type
  TPunkt = class(TObject)
    private
    { Private-Deklarationen }
     rRichtung : Integer;
     rhoehe : Integer;
     rpunkt  : TPoint;
     rschliessen : Boolean;
//     procedure ermmittlehöhe();
     public
    { Public-Deklarationen }
    procedure Bewegung();

  end;


  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure onclose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    punkt : TPunkt;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{procedure TPunkt.ermmittlehöhe;
begin
  rhoehe := form1.ClientHeight;
  Bewegung();
end;}

procedure TPunkt.Bewegung();

begin
 repeat
 case rRichtung of
 1:
  begin
    rpunkt.Y:= rpunkt.Y +1;
    if rpunkt.Y = rhoehe then rRichtung := 2;

  end;
 2: begin
    rpunkt.Y:= rpunkt.Y -1;

    if rpunkt.Y = 0 then rRichtung := 1;

  end;

 end;
  until   rschliessen = true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 punkt := TPunkt.Create;
 //punkt.ermmittlehöhe;
 punkt.rpunkt.Y:= 0;
 punkt.rRichtung:=1;
 punkt.rhoehe:=form1.ClientHeight;
 punkt.rschliessen := false;
 punkt.Bewegung;

 end;

procedure TForm1.onclose(Sender: TObject; var Action: TCloseAction);
begin
punkt.Free;
punkt.rschliessen := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin

showmessage(inttostr(punkt.rpunkt.Y));
end;

end.

Wenn ich allerdings compelieren wil erscheint das Fenster meines Programmes nicht. Warum kann ich mir denken doch wie kann man des verhindern. (Das Programm ist noch nicht fertig ich wollte es nur mal testen )