Построение графика в Delphi

[сер4ей]

type func=function(x:real):real;
procedure p(f:func;x:real;xmax:real;xmin:real ;holst:tcanvas;color:tcolor);
var miny:real; maxy:real;
a:array of real;
stepx:integer;
stepy:integer;
pty:integer;
ptx;integer;
begin

// дописать здесь
end;

function f(x:real):real;
begin
f:=2*Sin(-x)*exp(x/5);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
xmax:=strtofloat(edit1.text);
xmin:=strtofloat(edit2.text);
p(f,PaintBox1.Canvas,xmax,xmin,clre d);
end;
end.

вот мой не доделанный код, как мне задать размер массива, нарисовать сам график, pty,ptx- это переменная через которую, я узнаю точку начала координат, формула как определить шаг у меня есть.