unit _Kol_;

interface

uses
  Kol,Windows;

var
  Applet: PControl;

type
  TBrushStyle = Kol.TBrushStyle;
  PImageList = Kol.PImageList;
  PDirList = Kol.PDirList;
  PBitmap = Kol.PBitmap;
  ... другие типы

  function NewApplet(const Caption: String): PControl; overload;
  function NewForm( AParent: PControl; const Caption: String ): PControl; overload;
  ... другие функции

 в самом коде так(для примера)

implementation

function NewStrListEx(): PstrListEx;
begin
  Result := Kol.NewStrListEx;
end;

function NewListEx(): PListEx;
begin
  Result := Kol.NewListEx;
end;

function NewImageList( AOwner: PControl ): PImageList;
begin
  Result := Kol.NewImageList(AOwner);
end;

function NewForm( AParent: PControl; const Caption: String ): PControl;
begin
  Result := Kol.NewForm(AParent,Caption);
end;

function NewApplet(const Caption: String): PControl;
begin
  Result := Kol.NewApplet(Caption);
end;