function GeneratePassword(PasswordLength: Integer):string;

var

  SourceString: String;

  ExcludeString: String;

  RandomCharacter: String;

  RandomPassword: String;

  NumPassword: Integer;

begin

  Randomize;

  SourceString  := 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789:!?''"()@';

  ExcludeString := '0O1lI|';

  if Length(SourceString) = 0 then exit;

  for NumPassword := 1 to 20 do

  begin

    RandomPassword := '';

    repeat

//    RandomCharacter := SourceString[Random(Length(SourceString)) + 1 ];

      RandomCharacter := SourceString.Substring(Random(Length(SourceString)),1);

//    if Pos( RandomCharacter, ExcludeString) = 0 then

    if ExcludeString.IndexOf(RandomCharacter) = -1 then

        RandomPassword := RandomPassword + RandomCharacter;

    until (Length(RandomPassword) = PasswordLength);

    result:= RandomPassword

  end;

end;