Я использую процедуру Load из модуля SdlImage:
## Код:
```
DEFINITION SdlImage ["SDL_Image.dll"];
 ...
    PROCEDURE [ccall] Load (file: Sdl.PChar): Sdl.PSurface;
```


Заработало, когда записал следующим образом:
## Код:
```
PROCEDURE (do: DisplayObject) Init*(x, y: INTEGER; file: ARRAY OF SHORTCHAR): BOOLEAN, NEW;
BEGIN
   do.image := SdlImage.Load(file)
END Init;
```


Всё оказалось просто