function CanLoadImage(const AFile: string): Boolean;
var
  ImageEnIO: TImageEnIO;
begin
  Result := True;
  ImageEnIO := TImageEnIO.Create(nil);
  try
    try
      ImageEnIO.LoadFromFileAuto(AFile);
    except
      on E: Exception do
        Result := False;
    end;
  finally
    ImageEnIO.Free;
  end;
end;