Verificar si una imagen existe

[[seoane]]

Empezado por courtois

y que mas?, no se cargó la imagen? por que? o que? asi nadamas sin explicación? si digo que no esta el jpg no le ayudo en algo a mi usuario?
y si digo que si está pero está corrupto no le ayudo tampoco?

Si lo que necesitas es información que te parece esto:

Código Delphi [-]
procedure CargarImagen(Imagen: TImage; Filename: String);
begin
  try
    Imagen.Picture.LoadFromFile(Filename);
  except
    on EInvalidGraphic do
    begin
      ShowMessage('No reconozco este tipo de grafico');
    end;
    on EFOpenError do
    begin
      ShowMessage('No puedo abrir archivo: ' + SysErrorMessage(GetLastError));
    end;
    on EOutOfResources do
    begin
      ShowMessage('No hay mas recursos disponibles: ' + SysErrorMessage(GetLastError));
    end;
    on E: EOSError do
    begin
      ShowMessage('Error del sistema: ' + SysErrorMessage(E.ErrorCode));
    end;
    on EReadError do
    begin
      ShowMessage('Error de lectura, puede que el archivo este corrupto');
    end;
  else
    begin
      ShowMessage('Error desconocido');
    end;
  end;
end;

Los mensajes podrían ser mas explícitos pero el SysErrorMessage nos dará mas información sobre lo que paso (si el archivo no existe, si no tenemos permiso para leerlo, etc)