Control Panel Applet under NT

I have to create an icon in the Control Panel from Windows NT. I use a DLL (renamed into a CPL) and the function CPLApplet. I guess there is someting wrong. Here is the code that does not work:

BOF---------------------------------------------
library pCPLApplet;

uses
  Forms,
  uCPLApplet in 'uCPLApplet.pas' {Form1},
  WinTypes, WinProcs, cpl, SysUtils;

{$R *.RES}


procedure RunApp; export;
begin
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end;

type
  TNewCPLInfo = record
    dwSize:        longint;   // similar to the commdlg
    dwFlags:       longint;
    dwHelpContext: longint;   // help context to use
    lData:         Longint; // user defined data
    Icon:          HICON;   // icon to use, this is owned by CONTROL.EXE (may be deleted)
    szName:        array[0..31] of Char;    // short name
    szInfo:        array[0..63] of Char;    // long name (status line)
    szHelpFile:    array[0..127] of Char;   // path to help file to use
  end;

function CPLApplet (hWndCpl: HWnd; msg: Word; lParam1: Longint;
                var NewCPLInfo: TNewCPLInfo): Longint; export;
begin
 beep;
 case msg of
  CPL_INIT: begin

    CPlApplet:=1;
   end;
   {CP asks "Are you an Applet"  We reply 1 - "Yes I am"}

  CPL_GETCOUNT:begin
   CPlApplet:=1;
  end;
   {CP asks "How many icons do you want"  We reply 1 - "One icon,
    please"}

  CPL_NEWINQUIRE:
   {CP sends this message once for every icon you require. In our
    case this is only sent once, so we dont need to concern ourself
    with what applet number CP wants to know about}
   begin

    with NewCPLInfo do begin
     dwSize:=sizeof(TNewCPLInfo);
     dwFlags := 0;
     dwHelpContext := 0;
     lData := 0;
     szHelpFile[0]:= #0;
     {Now comes the intersting bit; our icon and names}
     Icon := Application.Icon.Handle;
     StrPCopy(szName,'My First Applet');
     StrPCopy(szInfo,'My first Control Panel Applet (in Delphi!)');
    end;
   end;

  CPL_DBLCLK: RunApp;

 end;
end; //CPLApplet

exports
  RunApp,
  CPLApplet;

begin
end.
EOF---------------------------------------------

thanks for help
bernhard


Dipl. Ing. Bernhard Angerer
IFT / Vienna University of Technology
Karlsplatz 13/311
A-1040 Wien
Tel: +43 1 58801 3192
Fax: +43 1 504 14 97
angerer@mail.ift.tuwien.ac.at