dcc32.exe -b KOLCCtrls.pas -dUNICODE_CTRLS;

Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
KOLDEF.INC(281)
KOLDEF.INC(281)
delphidef.inc(48)
delphicommctrl.inc(1569)
KOL_unicode.inc(1278)
KOL_unicode.inc(1278)
KOL_ASM.inc(14822)
KOL.pas(65529)
KOLCCtrls.pas(846) Warning: Variable 'fImgIndex' might not have been initialized
KOLCCtrls.pas(959) Error: Incompatible types: 'Char' and 'WideChar'
KOLCCtrls.pas(960) Error: Incompatible types: 'Char' and 'WideChar'
KOLCCtrls.pas(1023) Error: Incompatible types: 'Char' and 'WideChar'
KOLCCtrls.pas(1035) Error: Incompatible types: 'Char' and 'WideChar'
KOLCCtrls.pas(1109) Warning: Suspicious typecast of WideString to PAnsiChar
KOLCCtrls.pas(1436) Warning: Suspicious typecast of WideString to PAnsiChar
KOLCCtrls.pas(1444) Warning: Suspicious typecast of WideString to PAnsiChar
KOLCCtrls.pas(1671) Error: Incompatible types: 'Char' and 'WideChar'
KOLCCtrls.pas(1769)
KOLCCtrls.pas(168) Hint: Private symbol 'DoChange' declared but never used

program Test;

uses
 Windows, Messages, KOL;

begin
 Applet := NewForm(Applet, '');
 with Applet^ do
 begin
   Font.ReleaseHandle;
   Font.AssignHandle(GetStockObject(DEFAULT_GUI_FONT));
   Font.FontHeight := -11;
 end;
 with NewLabel(Applet, 'Test')^ do
   Width := Canvas.TextWidth(Text) + 10;
 Run(Applet);
end.

program Test;

uses
Windows, Messages, KOL;

begin
Applet := NewForm(Applet, '');
with Applet^ do
begin
  Font.ReleaseHandle;
  Font.AssignHandle(GetStockObject(DEFAULT_GUI_FONT));
  Font.FontHeight := -11;
end;
with NewLabel(Applet, 'Test')^ do
begin
  CreateWindow;
  Width := Canvas.TextWidth(Text) + 10;
end;
Run(Applet);
end.

               S[J] := #13;
               S[J-1] := #10;

               S[J] := #10;
               S[J-1] := #13;

Following conditional symbols can be used in a project (Project | Options | Directories/Conditional Defines) to change code generated a bit. There are following:

FPC - Free Pascal version. KOL can be used with such compiler to create Win32 applications. To create Win-CE applications (with FPC compiler), use the separate version of KOL specially designed for it.

1) You should read a message from Thaddy de Koning in koldef.inc near
{$IFDEF FPC} section.
2) You should use Windows.pas and other \win units from earlier
Borland Delphi, e.g. from Delphi 3. May be it is working for units
from Delphi 5 too but I did not check it.
3) Some small changes are necessary in KOL.pas.
A set of assembler procedures starting from EAX2PChar were uncommented
in last versions for some reasons by commenting directives {$IFDEF
ASM_VERSION} with a mark //22 - just remove the mark //22 and allow
the directive work. This section was changed in later versions, so may be other changes are necessary or no changes needed at all.
4) To check that it works I used Free Pascal 2.2.1 but I think that
all is the same for 2.4.0. Use following options (I just write [X] and
(*) items, other items are not marked, but you may experiment):

Syntax
[X] Allow label and goto {default}
[X] Use ANSI strings
(*) Delphi compatible

Generated code
[X] Range checking
[X] I/O checking
[X] Integer overflow checking
[X] Create smartlinkable units
[X] Generate smaller code

Processor
(*) Pentium2/PentiumM/AMD
(*) i386/i486

Verbose - for your decision
Browser - for your decision

Assembler
(*) Intel style assembler
(*) Use default output

Conditional defines
NOT_USE_RICHEDIT;WIN

Directories - change to your paths
Units
D:\FPC\2.2.4\units\i386-Win32\*
D:\FPC\2.2.4\units\i386-Win32\rtl
D:\FPC\2.2.4\units\i386-Win32
c:\Borland\Delphi 3\Source\Rtl\Win
D:\KOL

Include files
D:\KOL

Width := Canvas.TextWidth(Text) + 10;

function TControl.GetCanvas: PCanvas;
asm
       PUSH     EBX
       PUSH     ESI
       {$IFDEF  SAFE_CODE}
       MOV      EBX, EAX
       CALL     CreateWindow --- press F5 here to make a breakpoint
       {$ELSE}
       XCHG     EBX, EAX
       {$ENDIF}

function TControl.GetCanvas: PCanvas; // line 8910
asm
       PUSH     EBX
       PUSH     ESI
       XCHG     EBX, EAX

       MOV      ESI, [EBX].fCanvas
       TEST     ESI, ESI
       JNZ      @@exit
...