TChart delphi7 исчезает график

[SonicBob]

народ помогите понять в чем беда мб кто сталкивался
через tchart рисую график 2 штуки в одном поле, они разных масштабов перекрывают друг друга, увеличиваю изображение просто выделяя мышкой зону, и при увеличении больше какого определённого значения один из графиков исчезает, всегда один и тот же просто исчезает и если скинуть зум то опять на месте, подскажите пожалуйста
если надо могу выложить скрин как это происходит

[denisbrain]

Сообщение от SonicBob

народ помогите понять в чем беда мб кто сталкивался
через tchart рисую график 2 штуки в одном поле, они разных масштабов перекрывают друг друга, увеличиваю изображение просто выделяя мышкой зону, и при увеличении больше какого определённого значения один из графиков исчезает, всегда один и тот же просто исчезает и если скинуть зум то опять на месте, подскажите пожалуйста
если надо могу выложить скрин как это происходит

ехе хоть выложи и кусок кода

[SonicBob]

procedure TForm1.Button24Click(Sender: TObject);

var t1, t2:real;
c1, c2:integer;

begin



opred:=1;
t1:=0;
t2:=0;

if (form4.visible=false) and (form3.Visible=false) then
showmessage('ñíà÷àëà íåîáõîäèìî ïîñòðîèòü ãðàôèê')
else
  begin
  form3.Series2.clear;
  form4.Series2.Clear;
  c1:=listbox9.Items.Count-1;
  t1:=strtofloat(listbox9.Items.strings[c1]);
  c2:=listbox10.Items.Count-1;
  t2:=strtofloat(listbox10.Items.strings[c2]);
  form3.Series2.addXY(t1,t2,'',clBlue);
  form4.Series2.addXY(t1,t2,'',clBlue);
  if edit9.text='' then showmessage('âûáåðèòå êîîðäèíàòó Õ');
  if edit11.text='' then   showmessage('âûïîëíèòå ðàñ÷¸ò!!');
  if edit9.text='' then edit9.SetFocus
  else
    begin
    t1:=strtofloat(edit9.Text);
    if edit11.text='' then (edit11.SetFocus)
    else
      begin
      t2:=strtofloat(edit11.Text);
      form3.Series2.addXY(t1,t2,'',clRed);
      form4.Series2.addXY(t1,t2,'',clRed);
      end;
    end;
  end;
form3.Show;

end;

вот код кнопки на добавление линии которая исчезает
вот так это примерно происход