Delphi - Imagenes en memoria

Tengo un grupo de 12 paneles en los cuales quiero mostrar 12 imagenes por vez. Avanzando o retrocediendo quiero cambiar las imagens de estos. Como puedo primero leer las 200 imagens y guardales en memoria y luego ir refrescando el contenido visual.

Quiero evitar leer desde el disco cada vez.

For i:=1 to 12 do begin

Img := TImage(Self.FindComponent('Img' + IntToStr(i)));
img.Picture.LoadFromFile( '\GRAPHICS\foto1.jpg');
img.OnClick := Self.BotonClick;
img.Tag := i-1 + inicio;
...



Muchas gracias.

Puedes cargar tus imagenes en un array de TPictures

imgs:array of TPicture; //Sección Private

procedure TForm1.OpenDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
var i:integer;
begin
i:=0;
imagenes.Free;
SetLength(imgs,0);
for i:=0 to OpenDialog1.Files.Count-1 do begin
SetLength(imgs,length(imgs)+1);
imgs[i]:=TPicture.Create;
imgs[i].LoadFromFile(OpenDialog1.Files[i]);
end;
end;

De esta manera tendrás siempre en memoria tus imagenes, aunque no se como se vaya a comportar con tantas imágenes

También se puede usar una TScrollBox. Uno crearía todas las TImage dentro de esta TScrollBox (poniendo el TImage.Parent:=ScrollB) ¡y listo! Todo lo demás se hace solo.

Saludetes.