Загрузка изображений

procedure TShowExponatFrm.DBGrid1CellClick(Column: TColumn);
begin
  ClearImageList;
  DisplayImagesOnPanel;
end;
procedure TShowExponatFrm.DisplayImagesOnPanel;
var
  ImagePaths: TStringList;
  I: Integer;
  Image: TImage;
  CurrentLeft, CurrentTop: Integer;
  ImageWidth, ImageHeight: Integer;
begin
  ClearImageList;
  ImagePaths := TStringList.Create;
  try
    GlavFrm.ADOQuery3.Filter := 'exponatid = ' + GlavFrm.ADOQuery1.FieldByName('id').AsInteger.ToString;
    GlavFrm.ADOQuery3.Filtered := True;
 
    while not GlavFrm.ADOQuery3.Eof do
    begin
      ImagePaths.Add(GlavFrm.ADOQuery3.FieldByName('photo_path').AsString);
      GlavFrm.ADOQuery3.Next;
    end;
 
    GlavFrm.ADOQuery3.Filtered := False;
 
    ImageWidth := 100;
    ImageHeight := 100;
 
    CurrentLeft := 10;
    CurrentTop := 20;
 
    for I := 0 to ImagePaths.Count - 1 do
    begin
      Image := TImage.Create(Panel6);
      Image.Parent := Panel6;
      Image.Left := CurrentLeft;
      Image.Top := CurrentTop;
      Image.Width := ImageWidth;
      Image.Height := ImageHeight;
      Image.Proportional := False;
      Image.Stretch := True;
 
      // Задаем Tag как индекс изображения
      Image.Tag := I;
 
      Image.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + ImagePaths[I]);
 
      if CurrentLeft + ImageWidth + 10 > Panel6.Width then
      begin
        CurrentLeft := 10;
        CurrentTop := CurrentTop + ImageHeight + 10;
      end
      else
      begin
        CurrentLeft := CurrentLeft + ImageWidth + 10;
      end;
      ImageList.Add(Image);
    end;
  finally
    ImagePaths.Free;
  end;
end;

t:=GetTickCount;
DoSomething;
dT:=GetTickCount-T;//очевидно же

while not GlavFrm.ADOQuery3.Eof do
    begin
      ImagePaths.Add(GlavFrm.ADOQuery3.FieldByName('photo_path').AsString);
      GlavFrm.ADOQuery3.Next;
    end;

 for I := 0 to ImagePaths.Count - 1 do
    begin
      Image := TImage.Create(Panel6);