Thank you,
Yes are this solution..
{$define YesStdCALL}
Library cpkunzip;
{$IFDEF FPC}
{$MODE Delphi}
{$H+}
{$optimization autoInline}
{$modeswitch advancedrecords}
{$h+}
{$ENDIF}
{$apptype console}
uses
{$IFnDEF FPC}
windows,
{$ELSE}
LCLIntf, LCLType, LMessages,
{$ENDIF}
ziptypes,
sysutils,
classes,
h_types in 'L:\vlaxcompil\srcincpa\h_types.pas',
h_typestr,
h_acgi in 'L:\vlaxcompil\SRCINCPA\h_acgi.pas',
hc_Unzip in 'hc_unzip.pas',
hc_Masks in 'L:\vlaxcompil\srcincpa\hc_Masks.pas',
h_acedsubsel in 'L:\vlaxcompil\srcincpa\h_acedsubsel.pas',
h_strshohas in 'L:\vlaxcompil\srcincpa\h_strshohas.pas',
h_aduiport in 'L:\vlaxcompil\srcincpa\h_aduiport.pas',