## Код:
```
MODULE TmpM ["SDL2.dll"];

   TYPE
      int = INTEGER;
      Uint32 = INTEGER;
      Uint32Flags = SET;
      Uint8 = SHORTCHAR; (* or BYTE *)
      PtrVoid = POINTER [untagged] TO RECORD [untagged] END;
      Color = POINTER [untagged] TO ColorDesc;
      ColorDesc = RECORD [untagged]
         r, g, b, a: Uint8
      END;
      Palette = POINTER [untagged] TO PaletteDesc;
      PaletteDesc = RECORD [untagged]
         ncolors: int;
         colors: POINTER [untagged] TO ARRAY [untagged] OF ColorDesc;
         version: Uint32;
         refcount: int
      END;
      PixelFormat = POINTER [untagged] TO PixelFormatDesc;
      PixelFormatDesc = RECORD [untagged]
         format: Uint32;
         palette: Palette;
         BitsPerPixel: Uint8;
         BytesPerPixel: Uint8;
         padding: ARRAY [untagged] 2 OF Uint8;
         Rmask, Gmask, Bmask, Amask: Uint32;
         Rloss, Gloss, Bloss, Aloss: Uint8;
         Rshift, Gshift, Bshift, Ashift: Uint8;
         refcount: int;
         next: PixelFormat
      END;
      Rect = POINTER [untagged] TO RectDesc;
      RectDesc = RECORD [untagged]
         x, y: int;
         w, h: int
      END;
      BlitInfo = POINTER [untagged] TO BlitInfoDesc;
      BlitInfoDesc = RECORD [untagged]
         src: POINTER [untagged] TO ARRAY [untagged] OF Uint8;
         srcW, srcH: int;
         srcPitch: int;
         srcSkip: int;
         dst: POINTER [untagged] TO ARRAY [untagged] OF Uint8;
         dstW, dstH: int;
         dstPitch: int;
         dstSkip: int;
         srcFmt: PixelFormat;
         dstFmt: PixelFormat;
         table: POINTER [untagged] TO ARRAY [untagged] OF Uint8;
         flags: int;
         colorkey: Uint32;
         r, g, b, a: Uint8
      END;
      Blit = PROCEDURE [ccall] (src: Surface; srcrect: Rect; dst: Surface; dstrect: Rect): int;
      BlitMap = POINTER [untagged] TO BlitMapDesc;
      BlitMapDesc = RECORD [untagged]
         dst: Surface;
         identity: int;
         blit: Blit;
         data: PtrVoid;
         info: BlitInfoDesc;
         dstPaletteVersion: Uint32;
         srcPaletteVersion: Uint32
      END;
      Surface = POINTER [untagged] TO SurfaceDesc;
      SurfaceDesc = RECORD [untagged]
         flags: Uint32Flags;
         format: PixelFormat;
         w, h: int;
         pitch: int;
         pixels: PtrVoid;
         userdata: PtrVoid;
         locked: int;
         loclData: PtrVoid;
         clipRect: RectDesc;
         map: BlitMap;
         refcount: int
      END;

   PROCEDURE [ccall] FillRect* ["SDL_FillRect"] (dst: Surface; VAR rect: RectDesc; color: Uint32): int;
   PROCEDURE [ccall] FillRects* ["SDL_FillRects"] (dst: Surface; VAR rects: ARRAY [untagged] OF RectDesc; count: int; color: Uint32): int;

END TmpM.
```
