Как сделать проверку вводимых данных, если мне нужно вводить только целое трехзначное число? (Делфи)

Задача1.
Вывести на экран 1 или 0 в зависимости от того, есть ли среди цифр заданного трехзначного числа одинаковые.

procedure TForm1.Button1Click(Sender: TObject);
begin
str:= edit1.Text;
a:=strtoint(str[1]);
b:=strtoint(str[2]);
c:=strtoint(str[3]);
if(a=b) OR (a=c) Or (b=c) then
label1.Caption:= '1';
end;