[AND_REY]

Если по простому то рисовать графики можно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 Y, x: Real;
begin
 x:= -30;           // нижний предел х
 While x <= 30 Do   // верхний предел х
  begin
   Y:= 50*Sin(x/3); // формула
   x:= x + 0.1;     // шаг изменения х
   Form1.Canvas.Pixels[100+Round(x),100+Round(Y)]:= clRed; // рисование
  end;
end;