[Reasen]

No entiendo al 100% tu problema pero te ayudaría usar una función más simple para generar números, te he creado una que te va a ahorrar usar 'IntToStr' en cada línea.

Código Delphi [-]
function NumerosAleatorios(Largo: integer): string;
var
  i: integer;
begin
  Randomize;
  for i := 0 to largo - 1 do
    result := result + IntToStr(Random(9));
end;