Komisches String Verhalten?

[AlexII]

Hallo,

ich habe folgendes Problem. Ich verstehe nicht wieso in der Rückgabe bzw. dem Result nicht immer 8 Zeichen bzw. Buchstaben stehen? Sehr oft 8, aber ab und zu gar keine oder nur 3 oder 4... hm... kapiere ich nicht. Ich habe eine Vermutung, dass das irgendwie dann aufkommt, wenn ein Buchstabe mehrmals nacheinander vorkommt, oder irre ich mich da?

Bin für jede Aufklärung dankbar.

Delphi-Quellcode:

function GetPassword(vUpCaseLet: Integer): String;
var
  i : Integer;
  s1 : String;
const
  u  : String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
  // Großbuchstaben
  if vUpCaseLet = 1 then
  begin
    s1 := '';
    for i := 1 to 8 do
    begin
      s1 := s1 + u[Random(Length(u) + 1)];
    end;
  end;

  Result := s1;
end;