Синусоида: анимация

[iFlash66]

Здравствуйте! У меня есть прогрмма которая просто рисует синусоиду, при этом можно с клавиатуры вводить параметры графика (высота, длина, фаза). Нужно сделать анимацию синосоиды (волны), и при этом что-бы можно было изменять ее параметры. Помогите пожалуйста!
Вот код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  TWave=class
    height:Real;
    length:Real;
    phase:Real;
    function func(x:Real):Real;
  end;
 
var
  Form1: TForm1;
  H, L, P : real;
  XmaxP,YmaxP,X0,Y0,Xe,Ye:integer;
  Y,Xmax,Ymax,X,ScaleX,ScaleY,XR,XL,Max:extended;
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
  var x,dx,mx,my:real;
      wave:TWave;
      by:Integer;
begin
    Canvas.Pen.Color:=clBlack;
    XmaxP:=Form1.Width;
    YmaxP:=Form1.Height;
    X0:=(XmaxP div 2)-350;
    Y0:=YmaxP div 2;
    with Form1.Canvas do
      begin
        MoveTo(X0,0);
        LineTo(X0,YmaxP);// OY
        MoveTo(0,Y0);
        LineTo(XmaxP,Y0);// OX
      end;
  x:=0;
  dx:=0.01;
  mx:=10;
  my:=10;
  by:=Height div 2;
  H:=StrToFloat(Edit1.Text);
  L:=StrToFloat(Edit2.Text);
  P:=StrToFloat(Edit3.Text);
  wave:=TWave.Create;
  wave.height:=H;     //высота волны
  wave.length:=L;   // длина волны
  wave.phase:=P;  // фаза волны
  Canvas.Pen.Color:=clBlue;
  Canvas.MoveTo(x0+Round(x*mx),by-Round(wave.func(x)*my));
  while x*mx<Width do
  begin
    x:=x+dx;
    Canvas.LineTo(x0+Round(x*mx),by-Round(wave.func(x)*my));
  end;
  wave.Free;
end;
 
{ TWave }
 
function TWave.func(x: Real): Real;
begin
  Result:=height*Sin(phase/57.3+x*2*pi/length);  //формула синусоиды
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
Application.Terminate
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Refresh
end;
 
end.

[iFlash66]

Помогите решить пожалуйста!

[phomm]

Постарайтесь сообразить из этого http://programmersforum.ru/showthread.php?t=193070
(там и по ссылке гляньте). Коли возникнут проблемы, тогда что накропаете - кидайте сюда архивом, будем разбираться.
У Вас чувствуется подход - обычно с такими людьми мы срабатываемся. Хотя, конечно, недочёты тоже видны сразу, постараемся исправлять по ходу дела.