[delphi.com.ar]

Empezado por jachguate

Yo, a la rutina dada por delphi.com.ar, le añadiría una clausula ON, para cargar la imágen por defecto en caso que la imágen buscada no exista en disco..

Justamente ese creo que es el error mas previsible, de ser así utilizaría la función FileExists antes de tratar cargar el archivo, siempre prefiero evitar que se disparen excepciones, yo lo entendí por el lado de que el archivo sea corrupto ("si la imagen se encuentra sin problemas") pero ahora que releo.....

Código Delphi [-]
procedure TForm1.CargarImagen(AImagen: TFileName);
begin
  if FileExists(AImagen) Then
    Image1.Picture.LoadFromFile(AImagen)
  else
    Image1.Picture.LoadFromFile('c:\default.jpg');
end;