type  RetData =  record 
               Count: integer ;
               CmdCode: integer ;
               UserData: integer ;
               Status: integer ;
               CmdName: PChar ;
               SendStr: PChar ;
               Whole: PChar ;
               RetItem:  array  [ 1 .. 20 ]  of  PChar ;
               OrigStat:  array  [ 1 .. 6 ]  of    byte	;
                end ;

 type  n1RetData=   array  [ 1 .. 10 ]  of  byte;
 type  nRetData = ^ n1RetData;               


 type 
 TMathFunc =  procedure ( const  rt:RetData)stdcall;
....
 function     FiscalClosure(hWin:HWND; fun:TMathFunc; par: LPARAM;n:LPSTR;s:char):integer; stdcall;external 'fpl.dll' name 'FiscalClosure';