darle movimiento a este grafico

[cristian bravo]

hola como estan, yo aca medio complicado por que tengo este codigo y quiero que la funcion que grafico se mueva (osile) que se vea el recorido de la onda y no se como hacerlo alguno de ustedes podria darme una mano porfa se los agradeseria aca esta el codigo para que me digan lo malo y correcciones y me den sus ideas grax..


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls, ExtDlgs, Menus, Math;
type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Button2: TButton;
Button3: TButton;
SavePictureDialog1: TSavePictureDialog;
Label4: TLabel;
Label5: TLabel;
Button4: TButton;
OpenPictureDialog1: TOpenPictureDialog;
Label6: TLabel;
Edit3: TEdit;
Button5: TButton;
Edit2: TEdit;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var xi, yi, i, n, xn, h, a: Integer;
f: double;
begin
f := StrToFloat(Edit3.Text);
n := Round(StrToFloat(Edit1.Text));
a := Round(StrToFloat(Edit2.Text))*10;
xn:= 540;
Image1.Canvas.Pen.Color := clRed;
for i:= 0 to xn do
begin
yi:=Round(a*sin(f*DegToRad(i))+100);
Image1.Canvas.Pixels[i+n,200-yi]:= clRed;
Image1.Canvas.Pixels[i+n+1,200-yi]:= clRed;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
archivo: TEXTFILE;
begin
if SavePictureDialog1.Execute then
begin
Image1.Picture.SaveToFile( SavePictureDialog1.FileName);
GetNamePath ;
assignfile(archivo,SavePictureDialog1.FileName + '.txt');
Rewrite(archivo);
WriteLN(archivo,Trim(Edit1.Text) );
//WriteLN(archivo,Trim(Edit2.Text) );
WriteLN(archivo,Trim(Edit3.Text) );
CloseFile(archivo) ;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
archivo: TEXTFILE;
aux,aux2,aux3:String;
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
assignfile(archivo,OpenPictureDialog1.FileName + '.txt');
Reset(archivo);
ReadLN(archivo,aux);
Edit1.Text:=aux;
ReadLN(archivo,aux2);
// Edit2.Text:=aux2;
ReadLN(archivo,aux3);
Edit3.Text:=aux3;
CloseFile(archivo) ;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Image1.Picture.Bitmap.LoadFromFile('limpiar.bmp');
end;
end.