разные ли цифры??

// возвращает True, если все цифры числа Number разные, иначе False
function IsSignsDifferent(Number: Integer): Boolean;
var
  Dimension, Int, I, J: Integer;
  A: array of Integer;
begin
  Int := Number;
  Dimension := 0;
 
  repeat
    Inc(Dimension);
    SetLength(A, Dimension);
    A[Dimension - 1] := Int mod 10;
    Int := Int div 10;
  until Int = 0;
 
  Result := True;
  
  for I := 0 to High(A) do
    for J := 0 to High(A) do
      if J <> I then
        if A[I] = A[J] then
        begin
          Result := False;
          Exit;
        end;
end;

procedure TForm1.Button1Click(Sender: TObject);
type
  TDig = 0..9;
var
  Num : Integer;
  Dig : TDig;
  D : set of TDig;
  Res : Boolean;
begin
  //Заданное целое число.
  Num := StrToInt(Edit1.Text);
 
  D := [];
  Res := True;
  repeat
    Dig := Num mod 10;
    if Dig in D then begin
      Res := False;
      Break;
    end;
    D := D + [Dig];
    Num := Num div 10;
  until Num = 0;
 
  //Результат.
  if Res then
    ShowMessage('В числе все цифры различны')
  else
    ShowMessage('Число содержит совпадающие цифры.');
  ;
end;