[hsMapk]

СПАСИБО КЭП.Я тоже английский знаю.
Вот вобщем кусок кода, в котором ошибка.

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if M[k,kk]='' then //массив стринговый
    M[k,kk]:='0';
  if M[k,kk]<>'0' then
    znach:=strtoint(M[k,kk]);

    ii:=1;
    summ:=0;
    while ii<9 do
      begin
        ii:=ii+1;
        summ:=summ+ StrToInt(M[k,ii] + M[ii,kk]);

      end;
    if summ=znach then
    ShowMessage('Verno')
    else
    ShowMessage('Ne verno');
end;