دریافت ارور در زمان استفاده از ProcessMessages

procedure TForm1.Rectangle2MouseEnter(Sender: TObject);var  i: Integer;begin  for i := 1 to 20 do  begin    Rectangle1.Position.X := Rectangle1.Position.X + i;    Application.ProcessMessages;  end;end;
procedure TForm1.Rectangle2MouseLeave(Sender: TObject);var  i: Integer;begin  for i := 20 downto 1 do  begin    Rectangle1.Position.X := Rectangle1.Position.X - i;    Application.ProcessMessages;  end;end;