[Van]

Добрый день! Прошу Вашей помощи...

Пытаюсь в Delphi сделать программу расчета.
Что требуется: есть две переменные, которые просчитываются до тех пор, пока одна из них не достигнет определенного значения.
Если делаю программу, где сравнивается только одна переменная, то все работает, если с двумя - не работает (первая переменная достигает нужного значения, но цикл продолжается).

Привожу кусочек кода (хотя, в принципе, можно рассматривать только первую строку):

While (P<=0.98) or (P1<=0.95) do
begin
inc(i);
SetData;
AddToExcel(i);
Formula;
end;

Как правильно расставить операторы, чтобы условие работало (необходимо, чтобы шел цикл и останавливался, когда будет достигнуто одно из условий)?