Hola.
El código del primer mensaje debería borrar la imágen sin problemas, sería interesante verlo dentro del contexto ¿ Existe algún condicional previo al código ? por ejemplo:
Código PHP:
void __fastcall TForm1::qryTempAfterScroll(TDataSet *DataSet)
{
if ( !qryTemp->FieldByName("FOTO")->IsNull ) {
Image1->Picture = NULL;
Image1->Picture->Assign( qryTemp->FieldByName("FOTO") );
}
}
provocaría precisamente ese comportamiento.
Pero por otro lado, el moldeo:
Código:
TImage *Imagen = static_cast<TImage>(Source);
me hace pensar que el código está en un evento del propio
TImage ¿ en cuál ?
Tal vez con mas datos nos sea posible ver el motivo de ese extraño proceder.
Saludos
![Smilie](http://www.clubdelphi.com/foros/images/smilies/smile.gif)