Hello again

Iv had to dig this out again for an assignment. I just need to make a few tweaks, wonder if any1 can help me.

Below is the code Im using at the moment to simply move a ball(shape) across a form bounicng of walls as it goes along. Now what i wish to do is to make the ball jerk, spasm like instead of moving in a straight direction as to speak.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Circle.Left > (Form1.ClientWidth - Circle.Width))
or (Circle.Left <0)
then

begin
JumpHoriz:= -JumpHoriz;

end;
if (Circle.Top > (Form1.ClientHeight - Circle.Height))
or (Circle.Top < 0)
then

begin
JumpVert:= -Jumpvert;

end;
Circle.Left:= Circle.Left+JumpHoriz;
Circle.Top:= Circle.Top+Jumpvert;

end;

I have used a timer so i can alter the speed in which the ball moves easily if you was wondering why.

Any help will be greatly appreciated

Derek