Шифрование пароля

function XORCrypt(S: String; Key: String): String;
var i: Integer;
    X: String;
begin
  SetLength(X, Length(S));
  if Length(Trim(Key)) <> 0 then
    begin
      for i := 1 to Length(S) do
        X[i] := Chr(Ord(S[i]) xor Ord(Key[Length(Key) mod i]));
    end;
  Result := X;
end;

var
logpar: array of string;
g, h, counts:integer;
result: string;
begin
SetLength(logpar, 1000);
ds1.Active:=true;
ds1.First;
    for  g := 0 to ds1.recordcount -1 do   //обработка данных таблицы логин и пароль
    begin
    logpar[g]:=ds1.FieldValues['login']+ ' '+ds1.FieldValues['password'];
    ds1.Next;
    inc(counts);
    end;
 
    result:= trim(cbb1.Text)+ ' ' +Trim(CodeString(edt2.Text, true));
    for h := 0 to counts do
        if result = logpar[h] then
          begin
           Form3.Show;
          form1.Hide;
          end
          else
           if (cbb1.Text ='') and (edt2.Text ='') then
           ShowMessage('Логин или пароль не могут быть пустыми!')
           else
              if result <> logpar[h] then
              begin
               ShowMessage('Введен не верный логин или пароль!')
              end;
 
end;