procedure TSplash.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If hdlDLL <> 0 Then FreeLibrary(hdlDLL);
end;