[flips]

Можете сказать почему сдесь не выполняются услови с if одновременно, а только первое?

Код:

procedure TfrmIntNumber.Button1Click(Sender: TObject);
var min,max,a:integer; s:string;
begin
 Memo1.Clear;
 max:=999;
for min:=100 to max do
 begin
 a:=100;
 s:=inttostr(a);
 if (ord(s[1])=ord(s[2])) and (ord(s[2])=ord(s[3])) and (ord(s[1])=ord(s[3])) then break
 else
  a:=min+1;
  s:=inttostr(a);
 if (ord(s[1])=ord(s[2])) and (ord(s[2])=ord(s[3])) and (ord(s[1])=ord(s[3])) then break
 else
  s:=s[1]+s[2]+s[3];
  Memo1.Lines.Add(s);
 end;
end;

Что нужно дописать/изменить чтобы условие выполнялось?