Begin nach dem else in einem case :shock: Habe ich noch nie gemacht...
Folgender Code ist einfach mal aus unserem neuen POP3-Server kopiert...
case AuthType of
atClear: begin
Result := Password = Reg.ReadString('Password');
end;
atMD5: begin
Result := CreateMD5(Reg.ReadString('Password')) =
AnsiLowerCase(Password);