Problem mit dynamischer Array und eaccessviolation

[fox67]

Problem gelöst. neues Problem erstanden.

Code:

  case rRichtung of
 1:
  begin
    rpunkt.X:= rpunkt.X +3;
    [B]if rpunkt.Y > form1.Width-33 then rRichtung := 2;[/B]
    form1.Label1.Caption := inttostr(rRichtung);

   // Sleep(25);
  end;
 2: begin
    rpunkt.X:= rpunkt.X -3;

    if rpunkt.X < 0 then rRichtung := 1;
   // Sleep(25);
  end;
  end;
  end;

end;

Was ist an diesem Code falsch? Warum tut er nicht das was er soll.(bezieht sich nur auf das dicke) Normalerweise sollte doch die Richtung auf 2 umschalten sobald rpunkt.y größer als form1.width-33 ist warum tut es das nicht ?