Форма загрузки программы с gif анимацией

[exyl]

Добрый день.
Это не вопрос, а наоборот ответ для интересующихся. У меня проект крупный, грузится долго и чтобы пользователь не принял загрузку за зависание и не завершил работу программы через диспетчер задач, решил сделать окошко с gif анимацией (саму анимацию можно генерировать в онлайн генераторах, которых много, и скачивать себе уже готовую гифку в нужном размере, с нужным фоном и нужными прочими параметрами).
Я не люблю использовать сторонние компоненты, тем более, что Delphi 2007, который у меня есть, умеет работать с gif, правда, сделано это не через то место, какое бы хотелось. При этом сам гиф мне необходимо упаковать в исполняемый файл, поэтому способ LoadFromFile не подходит. Итак, в дизайн-тайме создал форму, кинул TImage на нее, загрузил в него гиф картинку (автоматом в uses добавился GIFImg), запустил, висит первый кадр. Логично. Покопался, подумал, и до инициализации всех форм (если это делать в OnCreate формы, то не прокатит и анимации не будет) в главном файле проекта в uses прописал GIFImg и присвоил значение глобальной переменной:

GIFImageDefaultAnimate:=True;

Анимация заработала (в рантайме), но не совсем с той скоростью, что нужно. Покопался еще, и добавил:

GIFImageDefaultAnimationSpeed:=500;

(по умолчанию стояло 100).
Теперь все работает как надо, сторонние компоненты не использованы, отдельный файл с гифкой рядом с исполняемым файлом программы не валяется.

Надеюсь, кому-нибудь пригодится, всем мир.