Не могу задать корректно условие While

[sergey113]

Пишу

While Ap.Cells[i,1]<>'ОПФР по Калининградской области'   do
begin
ShowMessage(Ap.Cells[i,1]);
i:=i+1;
ShowMessage(IntToStr(i));
end;

Ругается на invalid variant operation

[sergey113]

оказывается надо было написать

While Ap.Cells[i,1].Value<>'ОПФР по Калининградской области'   do
begin
ShowMessage(Ap.Cells[i,1]);
i:=i+1;
ShowMessage(IntToStr(i));
end;