[xflo]

Tengo un programa que gestiona una base de datos y una colección de imágenes asociada a través del nombre de la imagen. Esa colección está en un disco local o en un disco remoto al que accedo a través de una unidad de red.
Tanto en modo local como remoto la carga de imágenes es extraordinariamente lenta sabiendo que son JPG con un tamaño de archivo de unos 500 KB. Cuando las loe primero genero una miniatura que cargo en un ImageList y luego presento la miniatura en la pestaña de las páginas de un TPageControl y el original en el cuerpo de la página del componente.
Por compatibilidad con linux utilizo unas librerías distintas de jpeg que viene con delphi (TJpegImage) aunque también las he probado con el mismo resultado.
El procedimiento que he diseñado es el siguiente:
//***************************************************

procedure AsignaFoto (Sender:TObject; Filename:string);
var
NTabSheet:TTabSheet;
MiJPG:TJpegImage;
MiImg,MiPic:TImage;
arect, brect : TRect;
picprop:real;
propX, propY,oX,oY:variant;
mAncho,mAlto,gAncho, gAlto, ogX,ogY: integer;
begin

NTabSheet:= TTabSheet.Create(TPageControl(Sender));
NTabSheet.PageControl:= TPageControl(Sender);
NTabSheet.Top:=NTabSheet.PageControl.TabHeight + 5;
NTabSheet.Left:= 4;
NTabSheet.Width:= TPageControl(Sender).Width - 8;
NTabSheet.Height:=TPageControl(Sender).Height- NTabSheet.PageControl.TabHeight- 9;
mAncho:= TPageControl(Sender).Images.Width;
mAlto:= TPageControl(Sender).Images.Height;
MiJPG:=TJpegImage.Create(TPageControl(Sender));
MiJPG.LoadFromFile(Filename);
MiImg:=TImage.Create(NTabSheet);
MiImg.Parent:= NTabSheet;
MiImg.Visible:=false;
MiPic:=TImage.Create(NTabSheet);

//****Obtener imágenes proporcionadas
picprop:=MiJPG.Picture.Height/MiJPG.Picture.Width;
if picprop < 1 then
begin
propY:=int(mancho*picprop);
propX:=mancho;
gancho:= NTabSheet.Width;
galto:= trunc((gancho)* picprop);
oX:=0 ;
oY:= (malto-propY) div 2;
ogX:=0;
ogY:=(NTabsheet.Height - galto) div 2;
if galto> NTabSheet.Height then begin
galto:=NTabSheet.Height;
ogY:=0;
gancho:= trunc(galto/picprop);
ogX:= (NTabSheet.Width - gAncho) div 2;
end;
end;
if picprop >= 1 then
begin
propX:=int(malto/picprop);
propY:=malto;
galto:= NTabSheet.Height;
gancho:= trunc(galto/picprop);
oY:= 0;
oX:= (mancho-propX) div 2;
ogy:= 0;//NTabSheet.PageControl.TabHeight + 5;
ogX:= (NTabSheet.Width - gAncho) div 2;
end;
propX:=oX + propX;
propY:=oY +propY;
arect:=rect(oX,oY,propX,propY);
brect:=rect(ogX, ogY, ogX+gancho, ogY+galto);
//****Ya tenemos imágenes proporcionadas

MiImg.Picture.Assign(MiJPG.Picture);
MiImg.BoundsRect:= brect;
MiImg.Stretch:=true;
Mipic.Height:=mAlto;
MiPic.Width:=mAncho;
MiPic.canvas.StretchDraw(arect,MiImg.Picture.Bitmap);
TPageControl(Sender).Images.Add(Mipic.Picture.Bitmap,nil);
NtabSheet.ImageIndex:= NTabSheet.TabIndex;

MiPic.Free;
MiJPG.Free;
MiImg.Visible:=false;
end;
//*************************************************


¿Alguien puede ayudarme a que esto vaya más rápido?