AES encryption in PASCAL with INNO SETUP

Encryption AES in PASCAL with INNO SETUP. Any form of implementation or advice? Thanks.

I have this code, which generates a random key, I need to save that key encrypted with AES, in a BD.

Code:

const 
  CHARS = 'abcdefghijklmnopqrstuvwxyz0123456789';
var
EditToCopy: TNewEdit;

procedure ButtonGenerar(Sender: TObject);
var k, j, c: Integer;
rnd : String;

begin

    rnd:='';
    for k :=1 to 1 do
    begin
      for j:=1 to 8 do
      begin
       c := Random(36)+1;
       case c of
       15: rnd := rnd + CHARS[c] + CHARS[c+1];
       1..14: rnd := rnd + CHARS[c];
        else rnd := rnd +  CHARS[c+1];
      end;
    end;
    //result := rnd;
    EditToCopy.Text := rnd;
end;

 end;
procedure InitializeWizard;
var
  ButtonGenerar: TNewButton;
  WizardPage: TWizardPage;
begin
  WizardPage := CreateCustomPage(wpWelcome, 'Ejemplo', 'Generar');
  EditToCopy := TNewEdit.Create(WizardForm);
  EditToCopy.Parent := WizardPage.Surface;
  EditToCopy.Text := '';

  ButtonGenerar := TNewButton.Create(WizardForm);
  ButtonGenerar.Parent := WizardPage.Surface;
  ButtonGenerar.Caption := 'Generar';
  ButtonGenerar.Top := EditToCopy.Top + EditToCopy.Height + 8;
  ButtonGenerar.OnClick := @ButtonGenerar;
 end;