uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCRYPT2Lib_TLB,
    OleCtrls;
 
...
 
procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
success: Integer;
password: String; // Necesita password!!!
hexKey: String;
text: String;
encText: String;
decryptedText: String;
 
begin
crypt := TChilkatCrypt2.Create(Self);
 
success := crypt.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Crypt component unlock failed');
 
  end;
 
password := 'secretPassPhrase';
 
crypt.CryptAlgorithm := 'aes';
crypt.CipherMode := 'cbc';
crypt.KeyLength := 128;
 
// Generate a binary secret key from a password string
// of any length.  For 128-bit encryption, GenEncodedSecretKey
// generates the MD5 hash of the password and returns it
// in the encoded form requested.  The 2nd param can be
// "hex", "base64", "url", "quoted-printable", etc.
hexKey := crypt.GenEncodedSecretKey(password,'hex');
crypt.SetEncodedKey(hexKey,'hex');
 
crypt.EncodingMode := 'base64';
text := 'The quick brown fox jumped over the lazy dog.';
 
// Encrypt a string and return the binary encrypted data
// in a base-64 encoded string.
encText := crypt.EncryptStringENC(text);
 
Memo1.Lines.Add(encText);
 
// Decrypt and show the original string:
decryptedText := crypt.DecryptStringENC(encText);
 
Memo1.Lines.Add(decryptedText);
end;