Creating Chilkat ActiveX Components in Delphi

This Delphi example demonstrates how to dynamically create an instance of each Chilkat object. Some objects included in this example may be for components not yet released.

unit Unit1;
	
interface
	
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CHILKATXMPLib_TLB, CHILKATUTILLib_TLB, CHILKATMAILLib2_TLB,
  CHILKATIMAPLib_TLB, CHILKATFTP2Lib_TLB, CHILKATUCLib_TLB,
  CHILKATGZIPLib_TLB, ChilkatZip2Lib_TLB, CHILKATCERTIFICATELib_TLB,
  CHILKATCRYPT2Lib_TLB, CHILKATMHTLib_TLB, CHILKATBOUNCELib_TLB,
  ChilkatCharset2Lib_TLB, OleCtrls, CHILKATMIMELib_TLB, StdCtrls,
  SPIDERXLib_TLB, CHILKATSOCKETLib_TLB, CHILKATUPLOADLib_TLB,
  CHILKATHTTPLib_TLB, CKSTRINGLib_TLB;
	
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
	
var
  Form1: TForm1;
	
implementation
	
{$R *.dfm}
	
procedure TForm1.Button1Click(Sender: TObject);
var
  mailman: TChilkatMailMan2;
  email: CHILKATMAILLib2_TLB.IChilkatEmail2;
  bundle: CHILKATMAILLib2_TLB.IChilkatEmailBundle2;
  xmp: TChilkatXmp;
  crypt: TChilkatCrypt2;
  mht: TChilkatMht;
  imap: TChilkatImap;
  ftp2: TChilkatFtp2;
  zip: TChilkatZip2;
  zipCrc: TChilkatZipCrc;
  gzip: TGzip;
  unixCompress: TUnixCompress;
  bounce: TChilkatBounce;
  charset: TChilkatCharset2;
  mime: CHILKATMIMELib_TLB.IChilkatMime;
  cert: TChilkatCert;
  createCS: TChilkatCreateCS;
  certStore: CHILKATCERTIFICATELib_TLB.IChilkatCertStore;
  csp: TChilkatCSP;
  stringArray: TCkStringArray;
  upload: TChilkatUpload;
  ckString: TCkString;
  ckData: TCkData;
  spider: TSpider;
  socket: TChilkatSocket;
  http: TChilkatHttp;
  httpRequest: TChilkatHttpRequest;
  httpResponse: TChilkatHttpResponse;
	
begin
  mailman := TChilkatMailMan2.Create(Self);
  email := CoChilkatEmail2.Create();
  bundle := CoChilkatEmailBundle2.Create();
  xmp := TChilkatXmp.Create(Self);
  crypt := TChilkatCrypt2.Create(Self);
  mht := TChilkatMht.Create(Self);
  imap := TChilkatImap.Create(Self);
  ftp2 := TChilkatFtp2.Create(Self);
  zip := TChilkatZip2.Create(Self);
  zipCrc := TChilkatZipCrc.Create(Self);
  gzip := TGzip.Create(Self);
  unixCompress := TUnixCompress.Create(Self);
  bounce := TChilkatBounce.Create(Self);
  charset := TChilkatCharset2.Create(Self);
  mime := CoChilkatMime.Create();
  cert := TChilkatCert.Create(Self);
  certStore := CoChilkatCertStore.Create();
  createCS := TChilkatCreateCS.Create(Self);
  csp := TChilkatCSP.Create(Self);
  stringArray := TCkStringArray.Create(Self);
  upload := TChilkatUpload.Create(Self);
  ckString := TCkString.Create(Self);
  ckData := TCkData.Create(Self);
  spider := TSpider.Create(Self);
  socket := TChilkatSocket.Create(Self);
  http := TChilkatHttp.Create(Self);
  httpRequest := TChilkatHttpRequest.Create(Self);
  httpResponse := TChilkatHttpResponse.Create(Self);
end;
	
end.