Probier mal turboPASCAL´s Code in der Art zu ändern...
Delphi-Quellcode:
else
if (AnsiLowerCase(FExt) = '.jpg') or( AnsiLowerCase(FExt) = '.jpeg') then
begin
Image.Picture.Graphic := TJpegImage.Create;
Image.Picture.Graphic.LoadFromStream(ImgStream);
Result := True;
end else
...das Ganze natürlich für alle Typen.