¿Cómo eliminar varias imágenes cargadas en un solo TImage?

[Aszael]

Bueno, gracias, ya lo conseguí con esto:

Código Delphi [-]
procedure liberar;
var i:integer;
begin
  for i:=Form1.ComponentCount-1 downto 0 do
    begin
      if (Form1.Components[i] is TImage)then
        Form1.Components[i].free;
    end;
end;

Y bueno, solo para seguir aprendiendo, tengo esto:

Código Delphi [-]
procedure dibujar;
begin
  imagen:=TImage.Create(Form1);  
  fondo:=TImage.Create(Form1);  
end;

Creo dos imágenes con distinto nombre, luego ejecuto el procedimiento liberar(); y me elimina las dos imágenes. ¿Qué parámetros debo usar para solo quitar todo lo relacionado a "imagen" y no tocar "fondo"?