Repeat 
      If  (Form4.CheckBox3.Checked) then   begin  Application.ProcessMessages;sleep(SleepTime); end ;
      If  (i  mod   1000 )= 0   then  Application.ProcessMessages;
     x:=Round(Mas3[i, 1 ]-Mas3[i, 0 ]* 1 . 414214 / 4 );
     y:=Round(Mas3[i, 2 ]+Mas3[i, 0 ]* 1 . 414214 / 4 );
     Imag.Canvas.LineTo((O1.x-x), (O1.y-y));
     i:=i+ 1 ;
 Until  (i=MasLength)  or  Stop;

  ShellExecute(Application.Handle, 'open', 'lissajous3D.chm', PChar('newitem2.htm'),  Nil , SW_SHOWNORMAL);

 //****************************************************************************** 
 //CURVE3 
 Procedure  Curve3(Imag:TImage; Mas1,Mas2,Mas3:Massiv; HSizeImage,VSizeImage:Integer);
 var 
i:integer;
 Begin 
     Imag.Canvas.Pen.Width:=LineWidth;
 //Строим график A1(t) 
      If  Form1.CheckBox4.Checked=True  then  
      Begin 
         For  i:= 1   to  MasLength  do 
         Begin 
            If  (i  mod   1000 )= 0   then   Begin  Application.ProcessMessages;  If  Stop  then  exit;  End ;
           Imag.Canvas.Pen.Color := RGB(ColorA1.R,ColorA1.G,ColorA1.B);
           Imag.Canvas.MoveTo(Round(-Mas1[i- 1 , 0 ]+HSizeImage/ 2 ),Round(-Mas1[i- 1 , 1 ]+VSizeImage/ 2 ));
           Imag.Canvas.LineTo(Round(-Mas1[i, 0 ]+HSizeImage/ 2 ),Round(-Mas1[i, 1 ]+VSizeImage/ 2 ));
         End ;
      End ;
 //Строим график A2(t) 
      If  Form1.CheckBox5.Checked=True  then 
      Begin 
         For  i:= 1   to  MasLength  do 
         Begin 
            If  (i  mod   1000 )= 0   then   Begin  Application.ProcessMessages;  If  Stop  then  exit;  End ; 
            Imag.Canvas.Pen.Color := RGB(ColorA2.R,ColorA2.G,ColorA2.B);
            Imag.Canvas.MoveTo(Round(-Mas2[i- 1 , 0 ]+HSizeImage/ 2 ),Round(-Mas2[i- 1 , 1 ]+VSizeImage/ 2 ));
            Imag.Canvas.LineTo(Round(-Mas2[i, 0 ]+HSizeImage/ 2 ),Round(-Mas2[i, 1 ]+VSizeImage/ 2 ));
         End ;
      End ;
     Application.ProcessMessages;
 //Строим график A3(t) 
      If  Form1.CheckBox6.Checked=True  then 
      Begin 
         For  i:= 1   to  MasLength  do 
         Begin 
             If  (i  mod   1000 )= 0   then   Begin  Application.ProcessMessages;  If  Stop  then  exit;  End ;
 // Form4.CheckBox3.Checked = True - значит, что указано пошаговое построение 
             If  Form4.CheckBox3.Checked  then   begin  Application.ProcessMessages;sleep(SleepTime); end ;
            Imag.Canvas.Pen.Color := RGB(ColorA3.R,ColorA3.G,ColorA3.B);
            Imag.Canvas.MoveTo(Round(-Mas3[i- 1 , 0 ]+HSizeImage/ 2 ),Round(-Mas3[i- 1 , 1 ]+VSizeImage/ 2 ));
            Imag.Canvas.LineTo(Round(-Mas3[i, 0 ]+HSizeImage/ 2 ),Round(-Mas3[i, 1 ]+VSizeImage/ 2 ));
         End ;
         End ;
Mas1:= NIL ;
Mas2:= NIL ;
Mas3:= NIL ;
 End ; {Конец процедуры Curve3} 
 //******************************************************************************