Исправить ошибку, и дополнить программу

unit laboratorna4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus;
 
type
  TForm1 = class(TForm)
    TPanel11: TPanel;
    TPanel1TPanel: TPanel;
    RadioGroup1: TRadioGroup;
    GroupBox2: TGroupBox;
    CheckBox3: TCheckBox;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    TMemo1: TMemo;
    TMainMenu1: TMainMenu;
    N1: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N2: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N3: TMenuItem;
    TPopupMenu1: TPopupMenu;
    N5: TMenuItem;
    N6: TMenuItem;
    PopupMenu2: TPopupMenu;
    N4: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    TPanel1TPanel3: TPanel;
    PaintBox1: TPaintBox;
    Edit4: TEdit;
    Label4: TLabel;
    N6Graph: TMenuItem;
    N17: TMenuItem;
    procedure N13Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure TMemo1Change(Sender: TObject);
    procedure PaintBox1Click(Sender: TObject);
    procedure N6GraphClick(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N7Click(Sender: TObject);
 
 
 
 
 
 
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
 
procedure ShowLongHint (Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 procedure TForm1.ShowLongHint (Sender: TObject);
 begin
   Application.OnHint:=ShowLongHint;
   Application.HintPause:=50;// Пауза в мілі сек. після зупинки курсора
   Application.HintHidePause:=300;// Час показу підказки в мілі сек.
   Application.HintColor:=clGreen;
 end;
 
 
// табулювання
function f1(x:Real) :Real;
begin
  f1:=Sin(x)+1;
end;
function f2(x:Real) :Real;
begin
  f2:=Cos(x);
end;
function f3(x:Real) :Real;
begin
f3:=x*x;
end;
// похідна
function f1p(x:real):Real;
begin
  f1p:=cos(x);
end;
function f2p(x:real):Real;
begin
  f2p:=-sin(x);
end;
function f3p(x:real):Real;
begin
  f3p:=2*x;
end;
////////////////////////////////////////////////////////
function max(a,b:Real; func:Byte):Real; // визначення макс. значення функ. на промыжку а ,b
var
  maxf,x:Real;
  h:Real; // крок
  y:Real;  // Значення функції
 
begin
    h:=(b-a)*0.0001;  x:=a;
    case func of
     0: y:=f1(x);   // обчислюємо занчення функії
     1: y:=f2(x);
     2: y:=f3(x);
    end;
maxf:=y; // початкове значення макс.
x:=x+h;
 
while x<=b do
   begin
     case func of
      0: y:=f1(x);   // обчислюємо занчення функії
      1: y:=f2(x);
      2: y:=f3(x);
     end;
     if y>maxf then maxf:=y;
     x:=x+h;
     if(x<b) and (x+h>b) then x:=b;
 end;
 max:=maxf;
 end;
 
 function min(a,b:Real; func:Byte):Real; // визначення макс. значення функ. на промыжку а ,b
var
  minf,x:Real;
  h:Real; // крок
  y:Real;  // Значення функції
 
begin
    h:=(b-a)*0.0001; x:=a;
    case func of
    0: y:=f1(x);   // обчислюємо занчення функії
    1: y:=f2(x);
    2: y:=f3(x);
    end;
minf:=y; // початкове значення макс.
x:=x+h;
 
while x<=b do
   begin
     case func of
      0: y:=f1(x);   // обчислюємо занчення функії
      1: y:=f2(x);
      2: y:=f3(x);
     end;
     if y<minf then minf:=y;
     x:=x+h;
     if(x<b) and (x+h>b) then x:=b;
 end;
 min:=minf;
 end;
 ///////////////////////////////////////////////////////////////////
 // Очищення поля Memo
procedure TForm1.N13Click(Sender: TObject);
begin
  TMemo1.Text := '';
  N13.Enabled := false;
  N5.Enabled := false;
end;
 
procedure TForm1.TMemo1Change(Sender: TObject);
begin
  N13.Enabled  := (Length(TMemo1.Text) <> 0);
  N5.Enabled  := (Length(TMemo1.Text) <> 0);
end;
 //
procedure TForm1.N3Click(Sender: TObject);
var
  MassageToShow:string;
  UserResponse:Integer;
begin
MassageToShow :='Ви впевнені, що хочете завершити'+'роботу?';
UserResponse :=
  MessageDlg(MassageToShow,mtConfirmation,mbOKCancel,0);
  if UserResponse = mrOK then Close
  else
  MessageDlg('Продовжуемо роботу',mtInformation,[mbOK],0)
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
N13Click(Sender);
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
N3Click(Sender);
end;
 
procedure TForm1.N12Click(Sender: TObject);
begin
N12.Checked:=not(N12.Checked);
end;
 
 
procedure TForm1.N11Click(Sender: TObject);
Const
   Error='Невірний формат запису даних.';
var y,x,py,h,a,b:Real;
    str1,str2,str3:string;
    Massiv:array of real;
    k:Integer;
begin
if N12.Checked then
  TMemo1.Lines.Add('  X             F(x)            F'' (x)')
  else
  TMemo1.Lines.Add('  X             F(x)');
  try
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  h:=StrToFloat(Edit3.Text);
   except
     on EConvertError do
     begin
      MessageDlg( Error, mtError,[mbOK],0);
       Exit;
     end;
   end;
  x:=a;
  while x<=b do
  begin
    case RadioGroup1.ItemIndex of
    0: y:=f1(x);
    1: y:=f2(x);
    2: y:=f3(x);
    end;
  Str(x:8:3,str1);
  Str(y:8:3,str2);
 
  if N12.Checked then
  case RadioGroup1.ItemIndex of
   0: py:=f1p(x);
   1: py:=f2p(x);
   2: py:=f3p(x);
  end;
  x:=x+h;
 
Str(py:8:3,str3);
if CheckBox1.Checked then  // На экран
 
 begin
   if N12.Checked then
   str3:=str1+str2+str3
   else str3:=str1+str2;
   TMemo1.lines.add(str3);
 end;
 Str(py:8:3,str3);
if CheckBox3.Checked then // У массив
 
 begin
   if N12.Checked then
   str3:=str1+str2+str3
   else str3:=str1+str2;
   SetLength(Massiv, 200);// виділяемо пам'ять під  число елементів
  Massiv[k]:= y;
  k:=k+1;
   TMemo1.lines.add(str3);
 end;
 
 end;
 x:=x+h;
 if (x<b) and (x+h>b) then
  x:=b;
  end;
 
 
 
procedure TForm1.N10Click(Sender: TObject);
var
  messageToShow, NL:string;
begin
 NL:=Chr(13) +Chr(10);
 messageToShow:='Програма табулюэ задану функцію та її похідну,'+'NL';
 messageToShow:= messageToShow +'якщо відзначено відповідну опцію.';
 messageDlg(messageToShow,mtInformation,[mbOK],0);
end;
 
procedure TForm1.N9Click(Sender: TObject);
var
  MessageToShow, NL:string;
begin
NL:=Chr(13) + Chr(10);
messageToShow:='програма написана стуентом'+ NL;
messageToShow:=MessageToShow +'групи 208-ІПЗ .';
messageDlg(messageToShow,mtInformation,[mbOK],0);
end;
 
procedure TForm1.N15Click(Sender: TObject);
begin
if  CheckBox1.Checked=True then
CheckBox1.Checked:=False
else
CheckBox1.Checked:=True;
if CheckBox3.Checked=True then
 CheckBox3.Checked:=False
 else  CheckBox3.Checked:=True;
end;
 
 
procedure TForm1.N14Click(Sender: TObject);
begin
 CheckBox1.Checked:=True;
 CheckBox3.Checked:=True;
end;
 
procedure TForm1.N4Click(Sender: TObject);
begin
CheckBox1.Checked:=False;
CheckBox3.Checked:=False;
end;
 
procedure TForm1.PaintBox1Click(Sender: TObject);
const
  Error='Невірний формат запису даних.';
   var func:Byte; // номер функ. яку обрано
   x,y,h:Real;
   a,b:Real; // ліва і парва межа по X для поля графіка
   n:Integer; //  кількість точок
   min_y,max_y:Real; // мын. та макс. значення функ. Y на промыжку а б
   pa,pb:Integer;  // ліва і права межа у пікселях
   pmin_y,pmax_y:Integer; // значення функ. у пікселях
   py,px:Integer;
begin
 try
   a:=StrToFloat(Edit1.Text);//  ліва межа
   b:=StrToFloat(Edit2.Text);//  права межа
   n:=StrToInt(Edit4.Text);//  кількість точок
   h:=abs(b-a)/(n); // крок
 
   except
     on EComponentError do
     begin
       MessageDlg( Error, mtError,[mbOK],0);
       Exit;
     end;
    end;
 case RadioGroup1.ItemIndex of
   0: func:=0;      // Обчислюємо значення func
   1: func:=1;
   2: func:=2;
 end;
   // макс. та мін. значення функ. на проміжку а і б
 min_y:=min(a,b,func);
 max_y:=max(a,b,func);
 // очищаємо поле для графік та колір
 with PaintBox1 do
 begin
   Canvas.Brush.Color:=clWhite; // білий колір
   Canvas.FillRect(ClientRect); // Вибір ділянки для графіка у всіх області
   Canvas.Pen.Color:=clGreen; // колір графіка - зелений
 end;
  // OX
 pa:=10; // залишаемо по краях по 10 пікселів
 pb:=PaintBox1.ClientWidth-10;
 // OX
 pmin_y:=10;
 pmax_y:=PaintBox1.ClientHeight-10;
 
 x:=a;
 
 case func of
   0: y:=f1(x);
   1: y:=f2(x);
   2: y:=f3(x);
 end;
 // Переводимо координати точки (x,y) у пыкчелы
 px:=Round(pa+(x-a)*(pb-pa)/(b-a));
 py:=Round(pmin_y+(y-min_y)*(pmax_y-pmin_y)/(max_y-min_y));
 // По осі OY зображення дзеркальне
 py:=pmax_y-py;// Перша точка графіка
 // Переводимо покажчик у першу точку графіка
 PaintBox1.Canvas.MoveTo(px,py);
 //  рисуэмо графік
 repeat
   x:=x+h;
   case func of
   0: y:=f1(x);
   1: y:=f2(x);
   2: y:=f3(x);
   end;
 
 // Переводимо координати точки (x,y) у пыкчелы
 px:=Round(pa+(x-a)*(pb-pa)/(b-a));
 py:=Round(pmin_y+(y-min_y)*(pmax_y-pmin_y)/(max_y-min_y));
 // По осі OY зображення дзеркальне
 py:=pmax_y-py;
 // малюємо лінію від точки до точки \
 PaintBox1.Canvas.LineTo(px,py);
 until x>b;
 // малюємо осі
 PaintBox1.Canvas.Pen.Color:=clBlack;// Колір осей
 PaintBox1.Canvas.Font.Style:=[fsBold, fsItalic];
 // Жірний курсив
 // Вісь OX y:=0
 py:=Round(pmin_y+(y-min_y)*(pmax_y-pmin_y)/(max_y-min_y));
 // По осі OY зображення дзеркальне
 py:=pmax_y-py;
 PaintBox1.Canvas.MoveTo(pa,py);
 PaintBox1.Canvas.LineTo(pb,py);
 // Підпис до осі
 PaintBox1.Canvas.TextOut(pb-20,py+5,'OX');
 // Вісь OY  x:=0;
 //Переводимо координати точки x,y ( У пікселі)
  px:=Round(pa+(x-a)*(pb-pa)/(b-a));
 PaintBox1.Canvas.MoveTo(px,pmin_y);
 PaintBox1.Canvas.LineTo(px,pmax_y);
 // Підпис до осі
 PaintBox1.Canvas.TextOut(px-20,10,'OY');
end;
procedure TForm1.N6GraphClick(Sender: TObject);
begin
PaintBox1Click(Sender);
end;
 
procedure TForm1.N17Click(Sender: TObject);
begin
PaintBox1Click(Sender);
end;
 
procedure TForm1.FormCreate(Sender: TObject);// OnHint - метод опрацювання події
begin
  if N7Hint.Checked then
   TPanel11.Caption:=Application.Hint//Показувати підказки
  else TPanel11.Caption:='';
end;
 
 
 
procedure TForm1.N7Click(Sender: TObject);
begin
N7.Checked:=not(N7.Checked);
  if N7Hint.Checked then Application.ShowHint:=True
  else
  Application.ShowHint:=False;
end;
 
end.