Delphi Строгое убывание числа

//Строго убывает или нет -987654321
function check(s:string):boolean;
var
x,i1,i2:integer;
begin
result:=true; // инициализируем положительный результат
x:=length(s); //считаем символы в переданной строке
while x<>1 do //пока не дойдем до 1 символа переданной строки
begin
i1:=strtoint(s[x]); // переводим текущий символ в число
i2:=strtoint(s[x-1]); // переводим предыдущий символ в число
if i1=i2-1 then   //если на 1 меньше то все ок декрементируем цикл
x:=x-1 else //иначе
begin //http://rucode.blogspot.ru/
x:=x-1; //декрементируем цикл 
result:=false; //т.к число не на  1 меньше функция вернет фалс
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if check(edit1.Text)=true then 
form1.Caption:='Strogo ubivaet' 
else form1.Caption:='Ne Strogo ubivaet ili ne ubivaet vovse';
end;