怎么从如下的数组中随机取出各不相同的八位数

Question

function Calc: string;
const
  a = '12345678';
var
  I: Integer;
  J: Integer;
  L: Integer;
  T: Char;
begin
  Randomize;
  Result := a;
  L := Length(Result);
  for I := 1 to L do begin
    J := Random(L) + 1;
    T := Result[I];
    Result[I] := Result[J];
    Result[J] := T;
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := Calc;
end;

Answer 1

const
  a: array[0..7] of Char = ('1', '2', '3', '4', '5', '6', '7', '8');