визуальное delphi

[Olgasaf]

помогите решить пожалуйста....визуальное делфи(используя компоненты)
Дано натуральное число N. Проверить чередуются ли четные и нечетные цифры в записи этого числа.

[rubius2008]

...
ch:=true;
x:=N mod 10;
N:=N div 10;
while (ch) or (N<>0) do begin
  y:=x;
  x:=N mod 10;
  N:=N div 10;
  if (x + y) mod 2<>0 then ch:=false;
  if x=0 then ch:=false;
end;
if ch then {вывод в форму что чередуются}
else {вывод в форму что не чередуются}
...

[Olgasaf]

procedure TForm1.Button1Click(Sender: TObject);
var
N,x,y:integer;
ch:boolean;
begin

N:=strtoint(Edit1.text);
ch:=true;
x:=N mod 10;
N:=N div 10;
while (ch) or (N<>0) do begin
y:=x;
x:=N mod 10;
N:=N div 10;
if (x + y) mod 2<>0 then ch:=false;
if x=0 then ch:=false;
end;
if ch then Edit2.Text:='yes'
else Edit2.Text:='no';

end;


end.

нет, не хочет работать. постоянно говорит'no'

[JIeIIIa]

procedure TForm1.Button1Click(Sender: TObject);
 var
    N,x,y:integer;
    ch:boolean;
 begin

    N:=strtoint(Edit1.text);
    ch:=true;
    x:=N mod 10;
    N:=N div 10;
    while (ch) AND (N<>0) do begin
       y:=x;
       x:=N mod 10;
       N:=N div 10;
       if (x + y) mod 2<>0 then ch:=false;
       if x=0 then ch:=false;
    end;
    if NOT ch then Edit2.Text:='yes'
    else Edit2.Text:='no';

 end;

 end.

А так?

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
var
  N, x, y: integer;
  ch: boolean;
begin
  N := strtoint(Edit1.text);
  ch := true;
  x := N mod 10;
  N := N div 10;
  {if N = 0 then
    ch := false;}
  while (ch) and (N > 0) do
  begin
    y := x;
    x := N mod 10;
    N := N div 10;
    if (x + y) mod 2 = 0 then
      ch := false;
  end;
  if ch then
    Edit2.text := 'yes'
  else
    Edit2.text := 'no';
end;

На однозначные числа говорит Да, если нужно Нет, то расскоментируйте строчку.