1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12

var
  Form1: TForm1;
  customer : array of TCustomer; //выбор пути выполнения
  var_integer: array of integer;// все локальные переменные с такими свойствами:
  M_parameter_output: array of string;  //названия параметров по которому произойдет выход из Timer1Timer (0 не используется, 1 ниже-выше, 2 слева-справа, 3 поворот)
 Work_on_the_points_WhereFurther : array of Integer; //исходные числа (Work on the points)

procedure TForm1.Timer1Timer(Sender: TObject); //Interval 20
var
  numerator_ArcTan2: Extended;                  //the numerator and denominator (числитель и знаменатель   ArcTan2)
  E: Tpoint;                                    //нужна для E:=ScreenToClient(Form1.FDesignSize); 
  local_variable:Integer;  // локальная переменная