{$mode delphi} type tfunc = function : longint stdcall; begin end.