Шифрование

[Sina]

Помогите пожалуйста люди!! Вот есть прога по шифрованию, все отлично работает, но она не моя, я просто попросила знакомого, но он комментарии не написал, и щас не могу его спросить, помогите пожалуйста, напишите коменты=)!!
Суть такая, в мемо1 вводится текст, в эдит1 пароль, потом что то мне не понятное происходит и текст шифруется

var
s:string;

procedure Code(var text: string; password: string;
decode: boolean);
var
i, PasswordLength: integer;
sign: shortint;
begin
PasswordLength := length(password);
if PasswordLength = 0 then Exit;
if decode
then sign := -1
else sign := 1;
for i := 1 to Length(text) do
text[i] := chr(ord(text[i]) + sign *
ord(password[i mod PasswordLength + 1]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
begin
s := Memo1.Text;
code(s, Edit1.Text, false);
Memo1.Text := s;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
begin
code(s, Edit1.Text, true);
Memo1.Text := s;
end;
end;