z := TChartShape.Create(self);
z.ParentChart := cht1;
z.Style := chasRectangle;
.... про все остальное X0,X1....

....
  else
      begin
       for i := cht1.SeriesCount-1 downto 0 do
        begin
          //    cht1.RemoveSeries(cht1.Series[i]);  -- удаляет нафиг все!  - не годится, надо оставить линии графиков
          //    if cht1.Series[i].ClassType = TShape   -- пытаюсь этот признак, что это шейп класс - не реагирует 
          //    if cht1.Series[i].Style = chasRectangle  -- пытаюсь по стилю определить - ругается на несовместимость
                                                                                        [dcc32 Error] unForm.pas(2012): E2008 Incompatible types
//          then
            cht1.RemoveSeries(cht1.Series[i]);    
//   
//            ShowMessage('jopa '+IntToStr(i));
//            cht1.Series[i].Clear;
           end;
//         if (cht1.Series[i].Style = TChartShape)
        end;
         cht1.Refresh;
      end;

procedure TfSample.Button1Click(Sender: TObject);
   var z: TChartShape;
       i: Integer;
   var FTempChartContainer: TComponent;
begin
    If MySelectedNameId <> -1
     then
      begin
        panSelectedParameter.Caption:= MySelectedName;

        dmSample.mtValue.Active:=False;
        dmSample.mtValue.Active:=True;
        dmSample.mtValue.First;
        While not dmSample.mtValue.Eof do
         begin
        //  z := TChartShape.Create(self);
        //создание
          FTempChartContainer:=TComponent.Create(self);
          z := TChartShape.Create(FTempChartContainer);
          //-------------------------------------------------------------
          z.ParentChart := cht1;
          z.Style := chasRectangle;
          z.X0:=dmSample.mtValue.FieldByName('From').AsFloat;
          z.Y0:=0;
          z.X1:=dmSample.mtValue.FieldByName('To').AsFloat;
          z.Y1:=6000;
          z.Pen.Width:=0;
          z.Color := StringToColor(dmSample.mtValue.FieldValues['ValueColor']);
          z.Transparency:= 70;
          z.Font.Size:= 7;
          z.Text.Add(dmSample.mtValue.FieldValues['Value']);
          z.Alignment := taLeftJustify;
          z.VertAlign := vaTop;
          z.Legend.Visible := False;
          dmSample.mtValue.Next;
         end;
      end
     else
      begin
        FTempChartContainer.Free;     -----  это не срабатывает.
       {   
       for i := cht1.SeriesCount-1 downto 2 do
        begin
         if cht1.Series[i] is TChartShape then
          cht1.RemoveSeries(cht1.Series[i]);
        }
      end;
   cht1.Refresh;
end;