Convert error при переборе

[Horus92]

Пишу программу перебора вариантов числа на форуме посоветовали так
_http://programmersforum.ru/showthread.php?t=110100
но почему- то вылетает ошибка
Econverterror with message ''' invalid integer value
Вот код :

function IsInteger(S: String): Boolean;
begin
  try
    Result := True;
    StrToInt(S);
  except on E: EConvertError do
    Result := False;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Chislo: String;
  I: Integer;
  k,l,m:integer;
  a:array of integer;
  temp:integer;
begin
k:=1;
memo1.Clear;
SetLength(a,k);
  Randomize;
  for l:=1 to 100 do
  begin
  Chislo := '';
  for I := 1 to 2 do
  begin
    Chislo := Chislo + IntToStr(Random(10));
  end;
  if IsInteger(Chislo) then
    begin
    for m:=0 to high(a) do
    begin
    if a[i]=strtoint(chislo) then  Chislo := '';
    end;
    end else Chislo:='';
  if (Chislo<>'') and (IsInteger(Chislo))  then
  begin
  a[k-1]:=strtoint(chislo);
    inc(k);
    SetLength(a,k);
  end;
  end;

end;

[evg_m]

  k:=0; 
  SetLength(a,k);
  Randomize;
  for l:=1 to 100 do //все сто чисел мы увы не получим хоть раз да генератор и даст повторы который мы выбросим
//  while k<100 do //получим все 100 
  begin
  chisloint:=0; //  Chislo := '';
  for I := 1 to 2 do
  begin
    chisluint:=chisloint*10+random(10);//    Chislo := Chislo + IntToStr(Random(10));
   // например 54 = 5*10+4  и можно даже без цикла
//  chisluint:=random(10)*10+random(10);
  end;
//  chislsint:=strtoint(chislo);
//  if IsInteger(Chislo) then
   // begin
    for m=0 to k-1 do //for m:=0 to high(a) do
    begin
    if a[m]=chisloint then //if a[i]=strtoint(chislo) then  Chislo := '';//почмстиои и продолжаем сравнивать вот и EconvertError
    begin 
       chisloint:=-1; //такое число мы никогда не сгеннерируем
      break; //мы уже нашли поэтому прекращаем цикл
    end;
    end;
//    end else Chislo:='';
    if chisloint>=0 then //  if (Chislo<>'') and (IsInteger(Chislo))  then
  begin
    inc(k);
    SetLength(a,k);
    a[k]:=strtoint(chislo);
  end;
  end;