function add(Username: String) : Integer;
    var
        Password:   Integer;
        C:          Char;
    begin
        Password := 0;
        for C in Username do
            begin
                if C = '#10' or C = '#13' then Break;
                Password += Ord(C);
            end;
        getPassword := Password;
    end;