Ошибка оператора в RandomStr или точка с запятой

Question

function Randomstring(strLen: Integer): string;
var
  ID: string;
begin
  ID := 'QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm1234567890';  
  Result := '';
  Repeat
    Result := Result + ID[Random(Length(ID)) + 1];
  until (Length(Result) = strLen)
end;

Все точки с запятой кажутся мне вполне подходящими.Чего мне не хватает?

Answer 1

Вам не хватает точки с запятой в конце оператора until:

until (Length(Result) = strLen); // <-- here