Проблема со StringGrid (Delphi)

[Rilpack]

Здравствуйте. Нужна помощь! Нужно, чтобы в StringGrid выходило сообщение, когда ТОЛЬКО все ячейки равны 0. Я пытался сделать, но у меня выходит сообщение даже тогда, когда во всех ячейках находятся разные цифры и среди них есть ячейка с 0. Листинг:

for k:=1 to n+1 do
    for j:=1 to n do
    begin
      if StringGrid1.Cells[j,k]=IntToStr(0) then
      begin
        Showmessage('Матрица является нулевой');
        exit;
      end;
    end;

[Serge_Bliznykov]

так нало логику изменить на противоположную:

var isNulled : boolean;
...  
begin
isNulled := true;
for k:=1 to n+1 do
    for j:=1 to n do
    begin
      if Trim(StringGrid1.Cells[j,k])<>'0' then
      begin
         isNulled := false;
         break;
      end;
    end;

if isNulled then
   Showmessage('Матрица является нулевой');

[Rilpack]

Спасибо большое!