График в Делфи

[Kat.]

Ребят, в Делфи график требуется построить данной функции...Tchart не работает у меня, рисую с помощью пейнтбокса...
Функцию задаю так:

	
	
[PHP] function f1(a,x:Extended):Extended;
begin
f1:=sqrt ((4*sqr(x)- sqr(a))/3);
end;[/PHP]

А изобразить пытаюсь так:

	
	
[PHP]  Pen.Color:=clRed;

   begin m:=0.1;b:=(sqrt ((4*sqr(x)- sqr(a))/3));
    i:=Round(StrToInt(Edit2.Text)/m);
    while  i<Round(StrToInt(Edit3.Text)/m) do
    begin
    x01:=Round(x0+i*h*m);
    y01:=Round(y0-f1(i*m,b)*h);
    x02:=Round(x0+(i+1)*h*m);
    y02:=Round(y0-f1((i+1)*m,b)*h);
    MoveTo(x01,y01);
    LineTo(x02,y02);
    i:=i+1;end;

    end;[/PHP]

оси изобразила,В Edit2 содержится крайний левый предел построения по оси х , а в Edit3 - крайний правый.
h- Масштаб реализован через полоску TrackBar. и m - это шаг построения

Программа запускается, но при нажатии кнопки для построения графика, работа виснет- вылазиет ошибка...Кто знает-подскажите что не так, пожаааааалуйста

[Don Karleone]

что за ошибка?

[Kat.]

Project Project1.exe raised exception class EresNotFound with message 'Invalid floating operation'. Process stopped. Use or Run to continue.