[Lazarus Delphi] Generator haseł/kodów jednorazowych

[A11-11Q]

Wrzucam przykładowy kod realizujący generowanie losowe kodów/haseł jednorazowych... można go rozwijać lub poprawiać

Kod:

procedure TForm1.btnGenerujKodyClick(Sender: TObject);
var
  Znak, Haslo: String;
  i,n: Integer;

begin;
  Memo1.Clear;

  Znak := 'Qq1!Ww2Ee3Rr4$Tt5Yy6Uu7&Ii8Oo90PpAaSsDdFfGgHhJjKkLlZzXxCcVvBbNnMm';

  Randomize;
  for i:= 1 to StrToIntDef(edtIloscKodow.Text,1)do
  begin
    btnZapiszDoPliku.Enabled := FALSE;
    for n:= 1 to 7 do // <----Czesc zmienna hasla to 7 znakow
        begin
          Haslo := Haslo + Znak[Random(Length(Znak))+1];
        end;
    Memo1.Lines.Add(edtCzescStalaKodu.Text + Haslo);
    Haslo := '';
    Application.ProcessMessages;
  end;
  btnZapiszDoPliku.Enabled := TRUE;
  btnZapiszDoPliku.SetFocus; // zapisz do pliku
end;