🚀 go-pugleaf

I have the following functions:

function TfrmTickets.GetLogin(Prefix: String): String;
var
  i, Digit: Integer;
begin
  Result := Prefix;
  Randomize;
  for i := Length(Result) + 1 to 8 do
  begin
    Digit := Random(10);
    if Digit = 0 then
      Digit := 1;
    Result := Result + IntToStr(Digit)
  end;
end;

function TfrmTickets.GetPassword: String;
var
  i, Digit: Integer;
begin
  Randomize;
  Result := '';
  for i := 1 to 8 do
  begin
    Digit := Random(10);
    if Digit = 0 then
      Digit := 1;
    Result := Result + IntToStr(Digit)
  end;
end;

I am calling this functions one after another in a loop, 10 times.
And as the result i have login = password = somestring1 for 4 calls,
login = password = somestring2 for other 6 calls. So i have the same
strings generated several times. Whats wrong?

I need to generate different values for login and password every time.

Thanx,
Eugene.