TOPIC:

Every time you start the program, the sequence number generation the same, - is not good
...............


procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
for i :=1 to 100 do
begin
s:=s+inttostr(random(10));
end;
memo1.Lines.add(s);
end;

Program test;

begin
Randomize; // Sets the RandSeed Global variable to GetTickCount64 so the random number generator is initialized
...
RequireDerivedFormResource:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;

end.

thanks