Delphi графика.

[][Jlopka]

Всем доброго времени суток.
У меня есть маленькая проблема. Надеюсь мне тут помогут.

Вкратце. Есть программа вычисляющая площадь заданной функции. Функция [Sin(x)] В 3(В кубе).
Площадь необходимо найти методом Прямоугольников(левых, правых и т.д.) на задаваемом промежутке допустим от 0 до 3 по оси ОХ.
Решение программы для правых прямоугольников было мной придумано вот так:

{$R *.dfm}
//интегрируемая функция
function f(m: real): double;
begin
  //Здесь вводи функцию
  f:=sin(m)*sin(m)*sin(m)
end;

procedure TForm1.Button1Click(Sender: TObject);
  var a,b,x,n,m,m1,m2,s:real;
  i,ii:integer;
begin
  a := StrToFloat(Edit1.Text);
  b := StrToFloat(Edit2.Text);
  n := StrToFloat(Edit3.Text);
  m1:=b-a;
  m2:=m1/n;
  //Правый прямоугольник
    for i:=1 to i+1 do
  begin
  if m1>=m then
  begin
  m:=m+m2;
  x:=x+f(m)*m2;
  end
  else m:=m;
  end;
  Edit4.Text := FloatToStr(m);
  Edit5.Text := FloatToStr(m2);
  Edit6.Text := FloatToStr(x);
end;

Может конечно где-то ошибся но не это важно.

Вся проблема заключается в графическом отображение.
Задача состоит в том что, нужно построить график функции (допустим от 0 до 3)
И построить n-ное количество прямоугольников по которым и считала сама программа.

Столкнулся с тем что не знаю как вывести одновременно и график и прямоугольники. И чтобы количество их менялось.
Знаю как рисовать по пикселям, и как строить график, но не знаю как это все объединить в кучу.
Если кто может чем помочь.... Буду очень рад.
Стоит Borland Delphi 7.

[RUSt88]

используй paintbox

[Utkin]

Лучше TImage - возни меньше.

[lexaltd]

Если нужно строить графики - используй компонент TChart