Создание парольного ограничения в Delphi

[lini]

Здравствуйте. Такая проблема, как сделать так, чтобы при создании пароля, можно было использовать любые буквы и символы, но при этом пароль не должен совпадать с введенным именем пользователя??

function CheckPassword(const Pass:string):Boolean;
var
  Parol1,Login1:Boolean;
  i:Cardinal; // параметр цикла
begin
  Parol1:=false;
  Login1:=false;  
  for i:=1 to Length(Pass) do begin
{ проверка пароля}
    Parol1:=IsCharUpper(Pass[i]) or IsCharLower(Pass[i]) or (Pass[i] in ['0'..'9']) or (Pass[i] in ['+','-','*','/','%']);
    Login1:=
    end;
  // формирование результата выполнения функции проверки
  Result:=Parol1 and not Login1;
end;

так ли это должно выглядеть и как дописать?

[Stilet]

function CheckPassword(const Pass:string):Boolean;
begin
 Result:=Pass<>Login;
end;