Esto es lo que hice, segun entiendo yo, pero no me captura le excepcion.
Tengo añadida JPEG en el uses.
Código Delphi
[-]
...
try
Image1.Picture.LoadFromFile('c:\imagen.jpg');
except
on EInvalidGraphic do
begin
Image1.Picture.Graphic := nil;
DeleteFile('c:\imagen.jpg');
end;
end;
...
__________________
Código Delphi
[-]
try
ProgramarMicro(80C52,'Intel',MnHex,True);
except
On Exception do
MicroChip.IsPresent(True);
end;