[peterf1999]

Added the following function to dll:

• CreateBtn

const
  LButtonUp = 1;
  LButtonDown = 2;
  MouseOver = 4;
  MouseOut = 8;

type
TBtnEvent= procedure(BtnIdx,EventID: integer);

function CreateBtn(const FileName: PAnsiChar; Handle: HWND; X,Y,Height,Width: integer; callback: TBtnEvent): integer;