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;