hab zwar den fehler nicht, aber ersetz doch
Delphi-Quellcode:
if (GetFileExt(pic) = '.jpg') or (GetFileExt(pic) = '.jpeg') then
isjpeg := true else
isjpeg := false;
durch
isjpeg:=(GetFileExt(pic) = '.jpg') or (GetFileExt(pic) = '.jpeg');
oder direkt
Delphi-Quellcode:
if (GetFileExt(pic) = '.jpg') or (GetFileExt(pic) = '.jpeg') then
begin
...