arthurliu's blog

  m:integer=4;

接著在TIMER的地方寫語法：
語法：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if shape1.top=450 then m:=1;
  if shape1.left=450 then m:=2;
  if shape1.top=0 then m:=3;
  if shape1.left=0 then m:=4;
  if m=1 then
    begin
      shape1.Top:=shape1.Top-5;
      shape1.Left:=shape1.Left+5;
    end;
  if m=2 then
    begin
      shape1.Top:=shape1.Top-5;
      shape1.Left:=shape1.Left-5;
    end;
  if m=3 then
    begin
      shape1.Top:=shape1.Top+5;
      shape1.Left:=shape1.Left-5;
    end;
  if m=4 then
    begin
      shape1.Top:=shape1.Top+5;
      shape1.Left:=shape1.Left+5;
    end;
end;