implementation
 
procedure doInit(user:pointer);
 begin
  Texture:=LoadTextureFromFile('Texture.bmp'); //к примеру
  _hi_onEvent(THIDGLE_Load(user).onEnd);
 end;

procedure THIDGLE_Load._work_doLoad;  
 begin
  if LoadDGLEngineDLL('DGLEngine.dll') then
    RegProcedure(PROC_INIT,@doInit(self));   
    ----------------------------------