Borrar la imagen de un TImage

[xaguilars]

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;