Create PFX from PEM (Certificate and Private Key Files)

Create a PFX file from a pair of PEM files (the certificate PEM and private key PEM).

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCERTIFICATELib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
cert: TChilkatCert;
privkey: CHILKATCERTIFICATELib_TLB.IPrivateKey;
bIncludeCertsInChain: Integer;

begin


cert := TChilkatCert.Create(Self);

success := cert.LoadFromFile('chilkat_cert.pem');
if (success <> 1) then
  begin
    ShowMessage(cert.LastErrorText);
    Exit;
  end;

privkey := TprivateKey.Create(Self).ControlInterface;
//  If the private key PEM is encrypted, call LoadEncryptedPemFile instead.
success := privkey.LoadPemFile('chilkat_pkey.pem');
if (success <> 1) then
  begin
    ShowMessage(privkey.LastErrorText);
    Exit;
  end;

success := cert.SetPrivateKey(privkey);
if (success <> 1) then
  begin
    ShowMessage(cert.LastErrorText);
    Exit;
  end;

//  Now export to a PFX:
bIncludeCertsInChain := 0;
success := cert.ExportToPfxFile('chilkat2.pfx','myPassword',bIncludeCertsInChain);
if (success <> 1) then
  begin
    ShowMessage(cert.LastErrorText);
    Exit;
  end;

ShowMessage('PFX created!');

end;