[superWinchester]

Я очень начинающий програмист !!Здали курсовую "Машина тьюринга на делфи"
В общем смотрите !! Надо реализовать алгаритм машины тьюринга

Код:

procedure TForm1.BitBtn3Click(Sender: TObject);
var
i,nom:integer;
st:string;
begin
 Q:=0;
 nom:=0;

 repeat
 st:=StringGrid2.Cells[9,0];   //  в  ст присваиваем   то что  находится в 9 столбце   ленты
 for i:=1 to StringGrid1.RowCount-1 do // перебираем Все строки
  if st=StringGrid1.Cells[0,i] then // если  ст= равен какой либо строке
 nom:=i;      //тогда  в ном присваиваем номер строки

 st:=StringGrid1.Cells[Q+1,nom]; // теперь  в ст хранится ечейка В кторой есть совпадание в ленте

 StringGrid2.Cells[9,0]:=st[1]; // в активную ячейку ленты присваиваем   1-ый символ ст




 for i:=1 to StringGrid2.colCount-1 do// пробежались по все столбцам
 case st[2] of
  '<': StringGrid2.cells[i,0]:=StringGrid2.cells[i-1,0];
  '>': StringGrid2.cells[i-1,0]:=StringGrid2.cells[i,0];
  '.': q:=0;
 end;

 Q:=StrToInt(copy(st,3,length(st)));
 until q=0;





end;

Вылазиет ошибка на английском длиная вообщем , посмотрите код пожалуйста или свой предложите=)))

[superWinchester]

Вот ошибка

[icWasya]

Пользуемся отладчиком.
Сделайте брекпоинты в 15, 17 и 23 строке.
Смотрим, чему равно st в этих местах.

[M.A.D.M.A.N.]

Объект какой-то мертв.