type
  TForm1 = class(TForm)
    Chart1: TChart;
    Button1: TButton;
    Series1: TLineSeries;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    procedure TForm1.Button1Click(Sender: TObject);
var
  I:Integer;
begin
   Chart1.LeftAxis.SetMinMax(-100,100);
   Chart1.BottomAxis.SetMinMax(0,360);      for I:=0 to 360-1 do
  begin
    if Series1.Count=360 then Series1.Clear
    else
    begin
      Series1.Add( 100.0*Sin(Series1.Count*Pi/180.0));
      Chart1.Repaint;
      //Application.ProcessMessages;
    end;      end;
end;