[DELPHI] rysowanie wykresow - nauka

Czy ktos moglby napisac posta lub wyslac mi program, dzieki ktoremu nauczylbym sie od podstaw rysowac wykresy funkcji w delph?

ktos kiedys mi napisal (dosc dawno) taki kod:

const
  xmin=-10;
  xmax=10;
  ymin=-10;
  ymax=10;
var
  a,b,x,y,xcoeff,ycoeff:Double;
  i:integer;
begin
  a:=StrToFloat(Edit4.Text);
  b:=StrToFloat(Edit5.Text);
  xcoeff:=Image1.Width/(xmax-xmin);
  ycoeff:=Image1.Height/(ymax-ymin);
  Image1.Canvas.Brush.Style:= bsClear;
  for i:=0 to Pred(Image1.Width) do
  with Image1.Canvas do
  begin
    x:=i/xcoeff+xmin;
    y:=a*x+b;
    if i=0 then
     MoveTo(i, -Round((y+ymin)*ycoeff))
    else
     LineTo(i, -Round((y+ymin)*ycoeff));
  end;
end;

rysuje wykres funkcji liniowej otrzymujac parametry a i b. niestety nie pamietam kto napisal ten kod :|

a moze tak obejrzec program w katalogu Delphi
Demos\Teechart\teedemo.dpr

a ja nie mam takiego katalogu i tego pliku!