Out of Memory al hacer FreAndNil

[ecfisa]

cuando seleciono un reg nuevo levanto el path y hago el loadimage(), o se va pisando dentro del Image una con otra?

Hola Luis.

Eso depende de como realices la creación.

Por ejemplo, de este modo se crea una instancia de TImage, se van cargando las imágenes sobre la mísma y por último se libera:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TImage.Create(nil) do
  try
    Stretch:= True;
    Parent:= Self;
    Picture.LoadFromFile('Imagen1.jpg');
    Application.ProcessMessages;
    Sleep(1000);
    Picture.LoadFromFile('Imagen2.jpg');
    Application.ProcessMessages;
    Sleep(1000);
    Picture.LoadFromFile('Imagen3.jpg');
    Application.ProcessMessages;
    Sleep(1000);
  finally
    Free;
  end;
end;

Si pones un componente TImage en tiempo de diseño se comporta de forma similar.

Pero de este, se crea y libera una instancia de TImage por cada imágen:

Código Delphi [-]
procedure CargarImagen(Frm: TForm; Nombre: string);
begin
  with TImage.Create(nil) do
  try
   Stretch:= True;
   Parent:= Frm;
   Picture.LoadFromFile(Nombre);
   Application.ProcessMessages;
   Sleep(1000);
  finally
   Free
  end
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  CargarImagen(Form1,'Imagen1.jpg');
  CargarImagen(Form1,'Imagen2.jpg');
  CargarImagen(Form1,'Imagen3.jpg');
end;

Saludos.