Delphi: перегружается TChart

[WandererX]

Здравтсвуйте!
При большых значениях данных и скоростях опроса TChart программа закрывается или, если запущена в Delphi, выдает ошибку:

Проект viR.exe вызвал исключение класса Е Access Violation с сообщением 'Access violation at address 0046E8D7 In module 'VIR.exe'. Write of address 009A4000'. Процесс остановлен. Используйте Шаг или Запуск для продолжения.

Причем, если прорисовываемое значение примерно 5000,000, то все нормально, но при приближении к 10000,000 получается та ошибка.
Все это получается при периоде опроса АЦП и соответственно прорисовке на графике, равном 1-10мс.
Может кто подскажет как разгрузить процедуру TChart, чтобы она не глюкала?
Вот код:

{Преобразование полученных данных}
procedure TForm1.ReadTimerTimer(Sender: TObject);
var
KP:real;
B:Byte; CurrentState:TComStat;
AvaibleBytes, ErrCode: Cardinal;

begin
 {Получаем состояние порта }
 CurrentState:= FPort.GetState(ErrCode);
 {Отображаем число полученных, но еще не прочитанных байт}
 AvaibleBytes:= CurrentState.cbInQue;
 {Получаем значение множителя}
 KP:=StrToFloat(KPEdit.Text);
  If AvaibleBytes > 0 then begin
   If FPort.ReadByte(B) then begin { получение байта }
     if (B and 64)=0 then begin
       if (B and 128)=0 then
         begin
           dta1:=(B and 63);
           flag:=1;
         end

       else if flag=1 then
              begin
                dta2:=(B and 63);
                dta:=dta1+dta2*64;
                flag:=0;
                U:=KP*dta;  //Пересчёт весового кода с учётом коэф. поправки

                {Прорисовка значений}
                Form1.Memo1.Lines[k]:=FloatToStrF(U,ffFixed,7,3);
                Memo1.Lines.Add('');
                {Прорисовка графика}
                Form1.Series1.AddXY(k*dTme,U);
                k:=k+1;
              end
     end
   else   if (B and 4)=4 then begin  //Успешное окончание измерения
                           FPort.StateRTS(1);
                           SwitchLed1.ledState:=ledOn;
                           Play.Enabled := Active;
                           Edit1.Enabled := Active;
                           Edit2.Enabled := Active;
                           Edit3.Enabled := Active;
                           Stop.Enabled := not Active;
                           Init.Enabled := Active;
                           GroupBox3.Enabled := Active;
                           end
  else SwitchLed2.ledState:=ledOff;

  //else   if (B and 8)=8 then Label2.Caption:='АЦП не отвечает'
  //else  Label2.Caption:='Неизвестная ошибка';



  End;
 End;
end;

[raxp]

есть такой fix... побороть можно двумя путями:
1- уйти от tchart к другим, к примеру GraphicsM (но тоже меру нужно знать )
2- не перегружать и подчищать старые данные, ограничив кол-во точек 5000

p.s.: та же проблема и в трендах SCADA, там при "большом" кол-ве точек идут тормоза и там вовсе не tchart ...решается проблема созданием плавающего окна и ограничением-прореживанием количества выводимых точек, если идет весь период просмотра

[WandererX]

Я немного с выводами поспешил - частота опроса вроде и не причем. Имеют значение только прорисовываемые значения).
К другому компоненту переходить уже поздно - скоро защита.
Пришлось ограничить значение множителя в программе.

[raxp]

- удалить -

[raxp]

если вы не заметили, речь и шла о количестве отображаемых точек