[MaMu]

La excepcion que me tira es:

Código Delphi [-]
EOutOfResource con el mensaje "Espacio de almacenamiento insuficiente para precesar este comenado"

La rutina afectada, en la que se prucude el error es:

Código Delphi [-]
 if PageControl2.TabIndex=1
    then begin
      Timer1.Enabled:=True;
      Timer2.Enabled:=False;
      TheTop:=0;
      h:=0; //horizontal
      Cant:=Lista.Count;
      m:=0; //seleccionados
   try
      for g:=0 to Lista.Count-1 do
        begin
          LiberarMemoria;
          Thumb:=TThumb.Create(Main.JvThumbView1);
          Thumb.DoubleBuffered:=True;
          Thumb.Name:='Thumb'+IntToStr(g);
          //Thumb.Panel1.Caption:='# '+IntToStr(g+1);
          Thumb.Panel1.Caption:=ExtractFileName(Lista.Strings[g]);
          Thumb.dxCheckbox1.Checked:=ListView1.Items.Item[g].Checked;
          if ListView1.Items.Item[g].Checked=True
            then m:=m+1 else m:=m;
          Thumb.JvThumbnail1.FileName:=Lista.Strings[g];
          Thumb.JvThumbnail1.Title:=Resolucion(Lista.Strings[g]);
          Thumb.Left:=((h+1)-1) * Thumb.Width;
          if Thumb.Left=720
            then begin
                  TheTop:=TheTop+Thumb.Height;
                  Thumb.Left:=0;
                  h:=0;
                 end;
          Thumb.Top:=TheTop;
          Thumb.Parent:=Main.JvThumbView1;
          h:=h+1;
       end;
    except
    end;

Los Tframes (Thumbsnails) son:

Código Delphi [-]
unit Unit3;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, dxCore, dxCheckCtrls, ExtCtrls, JvExExtCtrls, JvBaseThumbnail,
  JvThumbnails;
type
  TThumb = class(TFrame)
    JvThumbnail1: TJvThumbnail;
    Panel1: TPanel;
    dxCheckbox1: TdxCheckbox;
  private
    procedure SetSelected(const Value: Boolean);
    function GetSelected: Boolean;
    { Private declarations }
  public
    { Public declarations }
    property Selected:Boolean read GetSelected write SetSelected;
  end;
 
implementation
{$R *.dfm}
{ TThumb }
function TThumb.GetSelected: Boolean;
begin
  Result := dxCheckBox1.Checked;
end;

procedure TThumb.SetSelected(const Value: Boolean);
begin
  dxCheckBox1.Checked := Value;
end;
end.

No se donde ni porque esta el error. Al cargar el Frame numero 230 siempre salta el error y tengo que crear 1 por cada foro, estoy probando con 356 fotos.

Saludos