Не могу понять почему компилятор ругается

begin
  str:= Edit1.Text;
  x:=strtoint(edit1.Text);
  n:=length(str);
 
  for i:=1 to n do
  a:=strtoint(str[i]);
  c:= (x mod a);
  if c<>0 then
    begin
    break;
    showmessage('не делится ')  ;
    break;
    end;
 
end; /// вот  тут выдает ошибку [Fatal Error] Unit4.pas(53): Internal error: T2335
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
    f:boolean;
begin
x:=strtoint(edit1.Text);
y:=x;
f:=true;
while (y>0)and f do
if(y mod 10=0)or(x mod(y mod 10)<>0)then f:=false
else y:=y div 10;
if f then  showmessage('делится ')
else showmessage('не делится ');
end;

procedure TForm4.Button1Click(Sender: TObject);
  var
  Str: string;
  x,i,a,c,n: integer;
 
begin
  str:= Edit1.Text;
  x:=strtoint(edit1.Text);
  n:=length(str);
 
  for i:=1 to n do
   begin
  a:=strtoint(str[i]);
  c:= (x mod a);
  if c<>0 then
    begin
      break;
    showmessage('÷èñëî íå äåëèòñÿ áåç îñòàòêà')  ;
    end;
    end;
 
end;
 
end.

  for i:=1 to n do
   begin
  a:=strtoint(str[i]);
  if a = 0 then Continue;