Как сделать динамический график

var
  Form1: TForm1;
  conf:array[1..256] of string;
  ComPort:Thandle;
  t,j:integer;
  q,z:integer;
  buf:array[1..4200] of AnsiChar;
 implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
 conf[1]:='1';
 ComPort:=ComOpen('com'+conf[1]);
 lbl1.Caption:='вкл';
 j:=0 ;
 q:=0;
 t:=1;
 
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ComWrite(ComPort,'E'+#10+#13);
sleep(200);
ComClose(ComPort);
end;
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
var i,h:longint;
    code,k,p:integer;
    j1:integer;
    x:char;
    str,s:string;
    newStr:array[1..2100] of string;
        //buf:array[1..42000] of Char;
begin
  j1:=1;
  str:=ComRead(comPort);
if(str<>'') then
begin
  for i:=1 to length(str) do
    begin
 
      if j>2110 then
       begin timer1.Enabled:=false;
 
                 if Timer1.Enabled=True then lbl1.Caption:='on'
                                        else lbl1.Caption:='off';
       break;
       end;
       buf[j]:=str[j];
        mmo1.Lines.add(IntToStr(j)+'      '+inttostr(Ord(str[j]))+'    '+IntToStr(j+1)+'    '+inttostr(Ord(str[j+1])));
       j:=j+2;
       
 
       if  ((j>8) and (j<2008)) then
      Series1.AddXY((j-8),256*Ord(str[j+1])+Ord(str[j]));
 
       
    end;   
    end;
   end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var temp:string;
     i,p:integer;
begin
 
  j:=1;i:=1;
  Timer1.Enabled:=true;
  if Timer1.Enabled=True then lbl1.Caption:='on'
                         else lbl1.Caption:='off';
  ComWrite(ComPort,'G'+#10+#13);
  temp:=ComRead(ComPort);
  {if Timer1.Enabled=false then
  while   j<2110 do
  begin
    p:=ord(buf[j]);     
     end;   
 
 
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
ComWrite(ComPort,'E'+#10+#13);
sleep(200);
ComClose(ComPort);
close();
end;
 
procedure TForm1.N2Click(Sender: TObject);
var path:string;
begin
SaveDialog1.Execute;
path:=SaveDialog1.FileName;
if path<>'' then memo1.Lines.SaveToFile(path);
end;
 
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
     ComWrite(ComPort,'T1'+#10+#13);t:=25
end;
 
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
      ComWrite(ComPort,'T2'+#10+#13);t:=50
end;
 
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
      ComWrite(ComPort,'T3'+#10+#13);t:=100
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
end;
 
procedure TForm1.Exit1Click(Sender: TObject);
begin
 
Close;
 
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
 
          Tmr1.Enabled:=True ;
end;
 
procedure TForm1.tmr1Timer(Sender: TObject);
begin
    
 if Timer1.Enabled=False then
 
 
  begin
 
    Button1.Click ;
     
  end;
     begin
       if tmr1.Enabled=True then lbl2.Caption:='on' else
                                   lbl2.Caption:='off'
     end;  
 
 
end;
 
 
 
procedure TForm1.N6Click(Sender: TObject);
begin
tmr1.Enabled:=False;
end;
 
end.