[ProperDoze]

Все нашел сам!

Зум или смещение:

Код:

procedure TFrame1.Chart1Scroll(Sender: TObject);
var i:integer;
begin
  Chart1.BottomAxis.Automatic:=false;

  for i:=0 to ChartArr.Count-1 do begin
  { [x] }
    TCHart(ChartArr.Items[i]).BottomAxis.Automatic:=false;
    TCHart(ChartArr.Items[i]).BottomAxis.Minimum:=Chart1.BottomAxis.Minimum;
    TCHart(ChartArr.Items[i]).BottomAxis.Maximum:=Chart1.BottomAxis.Maximum;
  { [y] }
    TCHart(ChartArr.Items[i]).LeftAxis.Automatic:=false;
    TCHart(ChartArr.Items[i]).LeftAxis.Minimum:=Chart1.LeftAxis.Minimum;
    TCHart(ChartArr.Items[i]).LeftAxis.Maximum:=Chart1.LeftAxis.Maximum;
  end;
end;

Вернуть все в исходное положение:

Код:

procedure TFrame1.UndoZoom(Sender: TObject);
var i:integer;
begin

  Chart1.BottomAxis.Automatic:=true;
  Chart1.LeftAxis.Automatic:=true;

  for i:=0 to ChartArr.Count-1 do begin
    TChart(ChartArr.Items[i]).BottomAxis.Automatic:=true;
    TChart(ChartArr.Items[i]).LeftAxis.Automatic:=true;
  end;

end;