[[coso]]

si eliminas el bloque

Código Delphi [-]
                    try
                      image1.Picture:=nil;
                    except
                    on e: exception Do
                    escribir('*****Exepcion limpiar la foto'+'  '+e.Message);
                    end;

te funciona correctamente?