Более 28 Gif выдают ошибку.

[Ares80]

Здравствуйте!
Подскажите почему если разместить более 28 видимых gif на форму(100 кб каждая), в модуле Vcl.Imaging.GIFImg будет ошибка:

First chance exception at $7593B922. Exception class EOutOfResources with message 'Параметр задан неверно.'.

...
procedure GDIError;
const
BufSize = 256;
var
ErrorCode: Integer;
Buf: array [Byte] of Char;
begin
ErrorCode := GetLastError;
if (ErrorCode <> 0) and (FormatMessage(FORMAT_MESSAGE_FROM_ SYSTEM, nil,
ErrorCode, LOCALE_USER_DEFAULT, Buf, BufSize, nil) <> 0) then
raise EOutOfResources.Create(Buf)
else
raise EOutOfResources.Create(SOutOfResour ces);
end;
....
27 Gif объектов ошибку не выдают.

[evg_m]

27 Gif объектов ошибку не выдают.

а один единственный 28-ой ?..

[Pavia]

VCL на каждый кадр GIF создает GDI объект bitmap. А каждый такой Bitmap содержит по 1 хэндлу. Вот они и заканчиваются. Всего в системе, т.е даже не на программу разрешено создавать не более 65536 хэнделов.
А так рекомендую сменить компоненты для вывода GiF.