[zip000]

Код:

procedure DrawSinFunc(Canvas : TCanvas; X, Y, Ln, Sz : Integer);
var
  i : Integer;
begin
  with Canvas do begin
    MoveTo(X, Y);
    for i := X to X + Ln - 1 do
      LineTo(i, Y - Round(Sz * Sin((i - X) / Sz)));
  end;
end;

Параметры функции :
Canvas - канва, на которой надо нарисовать функцию;
X, Y - координаты точки, из которой будет рисоваться график;
Ln - длина графика в пикселях;
Sz - размер синусоиды в пикселях.
Пример использования : если на пустую форму кинуть кнопку и написть в событии OnClick

Код:

DrawSinFunc(Canvas, 0, 50, 300, 30);

то получится следующее