No le echo la culpa al lenguaje, solo me estrañan algunas cosas.
Pienso que el problema era el que comente, ya que ahora todo va bien.
Creanme que casi todo el codigo estaba entre try... except.
Lo del findcomponent estaba especialmente protegido, ya que en un principio pense que ese era el problema.
Antes de hacer ese TImage( FindComponent('Foto'+inttostr(i)) ).free; comprobaba que existiera, etc...
Como dije, el error lo daba al salir del procedimiento (asi que todos los try...except no interceptaban ningun problema), y no siempre, que es lo mas estraño. Ademas el tipo de error cambiaba, y eso me desconcerto un poco.
Como no todos los que leen este foro estan muy seguros de su codigo, explico lo que me paso, por si alguien se encuentra en ese problema. De todas formas, es mas facil que el bug sea mio que de Delphi.
Gracias Roman, la verdad es que solo compuebo que existe, no que sea distinto de nil, aunque creo que tal y como esta escrito mi codigo los TImage siempre seran distintos de nil.
Siento haber abierto este hilo por un error mio, pero espero que le pueda servir a alguien.
Gracias a todos los que se interesaron.
|