Построение графика функции в Делфи

[Чумак Татьяна]

Я написала программу, но почему-то она не работает...все время выдает какие-то ошибки....помогите мне пожалуйста, подскажите в чем дело..
Вот код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    pnl1: TPanel;
    lbl1: TLabel;
    lbl2: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    btn1: TButton;
    img1: TImage;
    procedure img1Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Function f(x,a,b:real):real;
 begin
 if x<10 then f:=a*(x*x*x*x)+b*x;
 if x=10 then  f:=Sin(x+0.5)/cos(x+0.5);
 if x>10 then f:=exp(2*x)+ Sqrt(Sqr(a)+(x*x*x));

 end;

procedure GrOfFunc; 
var
  x1,x2:real; 
  y1,y2:real; 
  x:real; 
  y:real; 
  dx:real; 
  l,b:integer; 
  w,h:integer; 
  mx,my:real; 
  x0,y0:integer; 

procedure Form1.img1Click(Sender: TObject);
begin
  
  l:=10; 
  b:=Form1.ClientHeight-20; 
  h:=Form1.ClientHeight-40; 
  w:=Form1.Width-40; 

  x1:=2.5; 
  x2:=12.5; 
  dx:=0.5; 

  y1:=f(x1); 
  y2:=f(x1); 
  x:=x1;
  repeat
   y := f(x);
   if y < y1 then y1:=y;
   if y > y2 then y2:=y;
   x:=x+dx;
  until (x>=x2);

  
  my:=h/abs(y2-y1); 
  mx:=w/abs(x2-x1); 
  
  x0:=l;
  y0:=b-Abs(Round(y1*my));

  with form1.Canvas do
  begin
   
  MoveTo(l,b);LineTo(l,b-h);
  MoveTo(x0,y0);LineTo(x0+w,y0);
  TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
  TextOut(l+5,b,FloatToStrF(y1,ffGeneral,6,3));
  
  x:=x1;
  repeat
   y:=f(x);
   Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed;
   x:=x+dx;
  until (x>=x2);
 end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  GrOfFunc;
end;


procedure TForm1.FormResize(Sender: TObject);
begin
  
  form1.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight));
  
  GrOfFunc;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
a:=StrToFloat(edit1.text);  
b:=StrToFloat(edit2.text);
end;

end.

end;

end.

[Чумак Татьяна]

Ну помогите, пожалуйста.

[ACE Valery]

Если вы каждый раз будете набивать сообщения для поднятия темы, этим вы ничего не добьетесь. Ошибки какие выдает? "Какие-то" не катит. Текст ошибок приведите.