Тип картинки можно определить по заголовку файла (т.е. по нескольким первым байтам).
GIF-картинки начинаются с символов 'GIF89';
PNG-картинки начинаются с символов #$89'PNG';
P.S. Вместо
Код:
Delete(html,pos('" style="display',html),length(html));
лучше писать так
Код:
Delete(html,pos('" style="display',html),MaxInt);
или так
Код:
SetLength(html,pos('" style="display',html)-1);
И ещё нужно быть уверенным, что такая подстрока в строке существует, иначе функция Pos возвращает ноль, что не является корректным параметром для Delete и SetLength.