Матрицы в Delphi

[Vera_A]

Если при заполнении матриц A и B не заполнены какие-то поля, то выводится диалоговое окно с сообщением: "Заполните все поля", но почему-то при полном их заполнении диалоговое окно все равно появляется , как будто программа ждет заполнения матрицы C, в которой должен вывоодится результат. Помогите пожалуйста, что не так ?

procedure TForm1.Button1Click(Sender: TObject);
   var i,j,n,k,raz: integer;
begin
   n:=A.ColCount-1;
   if ((A.Cells[i,j]='') or(B.Cells[i,j]='')) then
 ShowMessage('Заполните все поля') else begin
   for i:=0 to n do
   for j:=0 to n do
   begin
   raz:=StrToIntDef(A.Cells[j,i],0)-StrToIntDef(B.Cells[j,i],0);
   C.Cells[j,i]:=InttoStr(raz); end; end;
end;

[NetSpace]

а ты перед проверкой

 if ((A.Cells[i,j]='') or(B.Cells[i,j]='')) then

индексы I и J как-то обозначил?
нет, конечно же! вот он тебе берёт наугад ячейку [500,300] и видит, что она пустая....
а ты сделай так, чтоб он наугад не брал индексы - сам эти циферки подсовывай ему в цикле.
вот после этого

 for i:=0 to n do
   for j:=0 to n do

и пиши своё условие проверки на пустоту