#pas
  TDrawTools = object
   public
    CreateBitmap:function (PRec:PPParamRec):cardinal; cdecl;
    DrawBitmap:procedure (Bmp:cardinal; DC:HDC; X,Y:integer); cdecl;
    DeleteBitmap:procedure (Bmp:cardinal); cdecl;
    GetSizeBitmap:procedure (Bmp:cardinal; var w,h:cardinal); cdecl;
  end;
  PDrawTools = ^TDrawTools;