uses XceedEncryptionLib_TLB 

var  xEnc : TXceedEncryption; 
  xRijndael : DXceedRijndaelEncryptionMethod; 
  vaSource : OleVariant; 
  vaDest : OleVariant; 
begin
  xEnc := TXceedEncryption.Create( self ); 
  xEnc.License( 'your license key' ); 

  xRijndael := CoXceedRijndaelEncryptionMethod.Create();  

  try 
    xRijndael.SetSecretKeyFromPassPhrase( 'This is a weak pass phrase!', 128 ); 
    xEnc. EncryptionMethod := xRijndael; 

    vaSource := 'This is the data to encrypt'; 
    vaDest := xEnc.Encrypt( vaSource, true ); 

    ShowMessage( 'Encryption successful!' ); 
  except 
    on xErr : Exception do 
      ShowMessage( xErr.Message ); 
  end;  

  xEnc.Free; 
end;