Borrar la imagen de un TImage
 

Una vez estuve haciendo una base de datos que contenía una imagen que tenía la opcion de borrado, pero no sabía como borrar la imagen después de haber añadido una antes, ya que el objeto parece que no tiene nada para hacer esa tarea... Pero es tan fácil como poner .Picture a nil.

Código Delphi [-]
function ClearImage (Image:TImage):boolean;
begin
  If Image.Picture=nil then
  begin
    result:=false;
    exit;
  end;
  Image.Picture:=nil;
  result:=true;
end;

No es lo mismo que hacer

Código Delphi [-]
procedure LiberaImage(Image:TImage);
begin
Image.Picture:=nil
Image.Repaint;
end;

Saludos

Le respondo a MAMU, no es lo mismo, desde ya que xaguilars esta haciendo una funcion, que le devuelve TRUE o FALSE segun se haya borrado algo relamento o no del TImage. Lo tuyo MAMU es un procedimiento. Hasta donde yo conozco TImage no tiene la propiedad RESULT. Por mi parte puedo contribuir con este procedimiento.
A la TTAble, TADOTable o tabla que se les ocurra, en el evento AfterScroll coloquen el siguiente codigo