Почему ошибка 'List index out of bounds (0)'?

[WandererX]

Здравствуйте!
Есть программа для опроса МК, к которому подключен АЦП. При больших значениях измерения и малых периодах между ними происходит ошибка:

исключение класса EListError с сообщением 'List index out of bounds (0)'

При этом измерения идут нормально на фоне окна с ошибкой и при закрытии окна с ее сообщением программа работает дальше.
Как я понял, это связано с ресурсоемкостью процесса прорисовки графика компонентом TChart, но никак не получается убрать эту ошибку.
Вызывает подозрение процедура TForm1.ReadTimerTimer и TForm1.PlayClick.
Может кто-нибудь сможет мне помочь? Помогите, пожалуйста, т.к. в программировании я новичок.
Вот файл с основным кодом:

[Stilet]

оч. Смешно.
На какой строке ошибка?

[Kotofff]

В строке 171 может быть идет обращение к 0-й строке Memo1 ?
А этого не должно быть !

Form1.Memo1.Lines[k]:=FloatToStrF(U,ffFixed,7,3);

При первом проходе таймера ...

[Stilet]

может быть идет обращение к 0-й строке Memo1 ?

В Мемо есть нулевая строка Конечно если оно не пустое
Другое дело что нужно проверки ставить
if (k>=0)and(k<ЧеттамтипаTStrings.Coun t) then Form1.Memo1...

[WandererX]

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

оч. Смешно.
На какой строке ошибка?

Если бы я знал в какой строке ошибка, то может и не спрашивал бы
Скорее всего в TForm1.ReadTimerTimer... Делфи выдает в отладчике код в асемблере и в нем я понять не могу Может TChart не успевает принимать данные?

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

begin
{Получаем состояние порта }
CurrentState:= FPort.GetState(ErrCode);
{Отображаем число полученных, но еще не прочитанных байт}
AvaibleBytes:= CurrentState.cbInQue;

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;
End;
End;
end;

[Selestis]

А точку остановки не пробовали ставить?

[WandererX]

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

В Мемо есть нулевая строка Конечно если оно не пустое
Другое дело что нужно проверки ставить
if (k>=0)and(k<ЧеттамтипаTStrings.Coun t) then Form1.Memo1...

А в каком смысле "пустое"? И для чего проверка? TStrings.Count - это какое значение?
Может быть ошибка из-за некорректного значения 0-ого измерения? Там же это значение может быть остатком от прошлого процесса измерения и АЦП его передает при начале нового из своего буфера...

[WandererX]

Точку остановки пробовал ставить, но это ничего не дало... Ошибка появляется именно в процессе непрерывной работы. И проверку вставлял

if (k>=0)

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

Form1.Series1.AddXY(k*dTme,U);

, т.е. Memo1 не при чем. Когда строчка работает и ошибка не выскакивает, заполнение Memo1 значениями идет с тормозами в течение первых 5-и значений где-то, а потом нормально. Выскакивает она сейчас обычно после принудительной остановки и закрытия порта (это нужно для прерывания получения данных из буфера), его открытия и повторного запуска процесса измерения.
Такое ощущение, что какое-то значение от порта некорректное приходит в начале при большой частоте опроса. Прикрепил его модуль. Уже не знаю что делать Где еще может быть проблема?