[Saint Garry]

Вроде так должно быть:

Код:

var t,A,f : real;
     zoom : integer;
begin
t := 0;
A:=1;
f:=1;
zoom :=50;
image1.canvas.moveto(0, image1.height div 2);
while t <= (2*pi) do
begin
image1.canvas.lineto(round(t*zoom),(image1.height div 2)-round(zoom*A*sin (2*pi*f*t)));
t := t + 0.01;
end;
end;

на форме один TImage - Image1
а код в обработчике нажатия кнопки поставь, прогу прямо сюда писал, так что могут быть ошибки.