При пошаговом выполнении программы кнопки перехода на следующий шаг сереют и перестают быть активными

Продолжая обсуждение из Замечания и предложения:

Код программы, при выполнении которого почти постоянно происходит ошибка, указанная в названии темы:

uses GraphWPF;

begin
  var a: array of (Point, Point);
  SetLength(a, ReadlnInteger);
  var w := ReadlnReal;
  var point1: Point := RandomPoint(w);
  var point2: Point;
  for var i := 0 to a.Length - 1 do
  begin
    if i.IsEven then
    begin
      point2 := RandomPoint(w);
      a[i] := (point1, point2);
    end
    else 
    begin
      point1 := RandomPoint(w);
      a[i] := (point2, point1);
    end;
  end;
  Lines(a);
end.

<32Bit>
2.0.50727.8813
->C:\Windows\Microsoft.NET\Framework\v2.0.50727
4.7.3620.0
->C:\Windows\Microsoft.NET\Framework\v4.0.30319

<64Bit>
2.0.50727.8813
->C:\Windows\Microsoft.NET\Framework64\v2.0.50727
4.7.3620.0
->C:\Windows\Microsoft.NET\Framework64\v4.0.30319

==== Installed .NET Frameworks ====
.NET FW 2.0 SP 2 (CLR 2.0)
.NET FW 3.0 SP 2 (CLR 2.0)
.NET FW 3.5 SP 1 (CLR 2.0)
.NET FW 4.6.2 General release(CLR 4.0)
.NET FW 4.7 General release(CLR 4.0)
.NET FW 4.7.1 General release(CLR 4.0)
.NET FW 4.7.2 General release(CLR 4.0)

==== Languages ====
< Installed Languages 3.0>
Russian
< Installed Languages 3.5.x>
Russian
< Installed Languages 4.x>
English - United States
Russian

==== Updates ====
Microsoft .NET Framework 4 Client Profile
KB2468871
KB2468871v2
KB2478063
KB2533523
KB2544514
KB2600211
KB2600217
Microsoft .NET Framework 4 Extended
KB2468871
KB2468871v2
KB2478063
KB2533523
KB2544514
KB2600211
KB2600217
KB2468871
KB2468871v2
KB2478063
KB2533523
KB2544514
KB2600211
KB2600217

 Институт математики, механики и компьютерных наук ЮФУ, 2005–2018
Администрация форума: В.Н. Брагилевский, С.С. Михалкович, А.М. Пеленицын
Yandex.Metrica