Динамическое создание и уничтожение TChart

var Ch: TPoint;
     c:TChart;
 
...
 
{события для перемещения chart-а по форме}
procedure TForm1.ChartMMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Ch.X:=X;
Ch.Y:=Y;
TChart(Sender).Tag:=1;
end;
 
procedure TForm1.ChartMMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if TChart(Sender).Tag=1 then begin
  TChart(Sender).Left:=TChart(Sender).Left+X-Ch.X;
  TChart(Sender).Top:=TChart(Sender).Top+Y-Ch.Y; end;
end;
 
procedure TForm1.ChartMMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
TChart(Sender).Tag:=0;
end;
 
procedure TForm1.N24Click(Sender: TObject);
begin
c:=TChart.Create(nil);
c.Left:=200;
c.Top:=100;
c.Visible:=true;
c.Height:=250;
c.Width:=400;
c.OnMouseDown:=ChartM.OnMouseDown;
c.OnMouseMove:=ChartM.OnMouseMove;
c.OnMouseUp:=ChartM.OnMouseUp;
c.Parent:=self;
c.PopupMenu:=PopupMenu1;
end;

procedure TForm1.ChartMMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Ch.X:=X;
Ch.Y:=Y;
if Button=mbLeft then TChart(Sender).Tag:=1 else
  if Button=mbRight then TChart(Sender).Tag:=2;
end;
 
procedure TForm1.ChartMMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if TChart(Sender).Tag=1 then begin
  TChart(Sender).Left:=TChart(Sender).Left+X-Ch.X;
  TChart(Sender).Top:=TChart(Sender).Top+Y-Ch.Y; end;
end;
 
procedure TForm1.ChartMMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if TChart(Sender).Tag=1 then TChart(Sender).Tag:=0;
end;
 
procedure TForm1.N24Click(Sender: TObject);
begin
k:=k+1; ShowMessage(inttostr(k));
c[k]:=TChart.Create(nil);
c[k].Left:=200;
c[k].Top:=100;
c[k].Height:=250;
c[k].Width:=400;
c[k].Name:='Chart'+IntToStr(k);
c[k].OnMouseDown:=ChartM.OnMouseDown;
c[k].OnMouseMove:=ChartM.OnMouseMove;
c[k].OnMouseUp:=ChartM.OnMouseUp;
c[k].Parent:=Form1;
c[k].PopupMenu:=PopupMenu1;
end;
 
procedure TForm1.N21Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 100 do
  if (c[i]<>nil)and(c[i].Tag=2) then begin c[i].Free; break; end;
end;