Помогите пожалуйста сделать разметку на графике

[Taisja]

Нужно чтобы разметка совпадала с вводимыми коэффициентами.
Вот график:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:integer;
x:real;
mx,my:real;
xmax,ymax,xmin,ymin:real;
xg,yg:integer;
xgmin,xgmax,ygmin,ygmax:integer;
i,n:integer;
x0,y0:integer;
h:real;
function f(x:real;a,b,c:integer):real;
begin
result:=(a*sqrt(b*x))/(c*x+2);
end;
begin
a:=strtoint(inputbox('окно ввода','введите коэффицент а',' '));
b:=strtoint(inputbox('окно ввода','введите коэффицент b',' '));
c:=strtoint(inputbox('окно ввода','введите коэффицент c',' '));
xmin:=1.2;
xmax:=6;
ymin:=-5;
ymax:=10;
xgmin:=100; xgmax:=300; ygmin:=250; ygmax:=50;
mx:=(xgmax-xgmin)/(xmax-xmin);
my:=(ygmax-ygmin)/(ymax-ymin);
x0:=xgmin+round(mx*(-xmin));
y0:=ygmin+round(my*(-ymin));
h:=(xmax-xmin)/(xgmax-xgmin);
Canvas.MoveTo(x0,y0);
Canvas.LineTo(xgmax,y0);
Canvas.MoveTo(x0,ygmin);
Canvas.LineTo(x0,ygmax);
x:=xmin;
n:=round((xmax-xmin)/h);
for i:=0 to n do
begin

xg:=xgmin+round(mx*(x-xmin));
yg:=ygmin+round(my*(f(x,a,b,c)-ymin));
Canvas.Pixels[xg,yg]:=clblue;
x:=x+h;
Canvas.TextOut(xgmax+10,y0,'X');
Canvas.TextOut(x0,ygmax-10,'Y');
Canvas.TextOut(x0+80,ygmax-10,'График функции y=(a*sqrt(b*x))/(c*x+2);');
end;
end;

end.

[Taisja]

Спасибо, уже не надо, сама справилась.