Проверка пароля на соответствие требованиям

function TMainF.CheckPass(s :String; tag :Integer):Boolean;
var
lazha   :Boolean;
i       :Word;
begin
lazha:=false;
case tag of
0:
begin
for I := 1 to Length(S) do
  if (s[i] in ['А'..'Я', 'Ё', 'A'..'Z']) Then
  Begin
  lazha:=False;
  Break
  End
  else
  lazha:=True;
end;//0
1:
begin
 for I := 1 to Length(S) do
  if (s[i] in ['0'..'9'])Then
  Begin
  lazha:=False;
  Break
  End
  else
  lazha:=True;
end;//1
2:
begin
 for I := 1 to Length(S) do
  if (s[i] in ['!','@', '#', '$', '%', '^', ':', '&', '*', '(', ')', '-', '+','_']) Then
  Begin
  lazha:=False;
  Break
  End
  else
  lazha:=True;
end;//2
end;//case
Result:=lazha;
end;

var
w,n,s :Boolean;
st    :String;
begin
st:='Пароль не отвечает требованиям информационной безопасности!' +#10#13+
                         'Пароль должен быть не менее 8 символов, ' +#10#13+
                         'содержать заглавные буквы, ' +#10#13+
                         'цифры от 0 до 9, '+#10#13+
                         'а так же спецсимволы: !, @, #, $, %, ^, :, &, *, (, ), -, +, _';
if Length(Trim(pass1.Text))<8 then
  raise Exception.Create(st);
w:=MainF.CheckPass(Pass1.Text,0);//на наличие заглавных букв
n:=MainF.CheckPass(Pass1.Text,1);//наличие цифр
s:=MainF.CheckPass(Pass1.Text,2);//наличие спецсимволов
if (w) or (n) or (s) then
  raise Exception.Create(st);
end;

if (s[i] in ['А'..'Я', 'Ё', 'A'..'Z'])
if (s[i] in ['0'..'9']) Then
if (s[i] in ['!','@', '#', '$', '%', '^', ':', '&', '*', '(', ')', '-', '+','_']) Then

function CheckPsw(_text: String): boolean;
var i, Summ: integer;
    A: array [1..5] of integer;
begin
 for i := 1 to 5 do
  A[i] := 0;
 if Length(_text) >= 8 then A[1] := 1;
 for i := 1 to Length(_text) do
  begin
   if (_text[i] in ['а'..'я', 'ё', 'a'..'z']) then A[2] := 1;
   if (_text[i] in ['А'..'Я', 'Ё', 'A'..'Z']) then A[3] := 1;
   if (_text[i] in ['0'..'9']) then A[4] := 1;
   if (_text[i] in ['!','@', '#', '$', '%', '^', ':', '&', '*', '(', ')', '-', '+','_']) then A[5] := 1;
  end;
 Summ := 0;
 for i := 1 to 5 do
  Summ := Summ + A[i];
 result := Summ = 5;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 if CheckPsw(Edit1.Text) then ShowMessage('y') else ShowMessage('no');
end;

if CharInSet(s,['A'..'Z']) then lazha:=False;

function CheckPsw(_text: String): boolean;
const aBig: String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
      aSmall: String = 'abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
      Digit: String = '0123456789';
      Symb: String = '~!@#$%^&*()-_=+';
var i: integer;
    Mask: String;
begin
 Mask := '00000';
 if Length(_text) >= 8 then Mask[1] := '1';
 for i := 1 to Length(_text) do
  begin
   if Pos(_text[i], aBig) > 0 then Mask[2] := '1';
   if Pos(_text[i], aSmall) > 0 then Mask[3] := '1';
   if Pos(_text[i], Digit) > 0 then Mask[4] := '1';
   if Pos(_text[i], Symb) > 0 then Mask[5] := '1';
  end;
 result := Mask = '11111';
end;