if Assigned(ImageEnView) then
  begin
    { jpeg maximum is 65535x65535 }
      if ImageEnView.IO.Params.Width * ImageEnView.IO.Params.Height > 4294836225 then
     begin
        MessageBeep(MB_ICONERROR);
        AdvTaskDialog1.Clear;
        AdvTaskDialog1.Icon := tiError;
        AdvTaskDialog1.Title := 'Error';
        AdvTaskDialog1.Instruction := 'Image Loading Will Fail';
        AdvTaskDialog1.Content :=
          'The image could not be loaded because its dimensions are too large.  Remove the filename from the list?';
            AdvTaskDialog1.ExpandedText := 'The image could not be loaded and is too large.';
        AdvTaskDialog1.CommonButtons := [cbOk];
        AdvTaskDialog1.Execute;
        exit;
     end;
end;