[danielmj]

Hola de nuevo, he creado un archivo .res para pasarle una serie de imagenes a un TImage, a primera vista todo está bien. El código es este:

Código Delphi [-]
implementation

{$R *.dfm}
{$R hebillas.res}

...

procedure TForm1.ComboBox1Click(Sender: TObject)
var
  jpg: TJpegImage;
  Recursos: TResourceStream;

begin
  case comboBox1.ItemIndex of
    0:begin
        jpg:= TJpegImage.Create;
        Recursos := TResourceStream.Create( hInstance, 'RES_IMG_0', RT_RCDATA );
        Recursos.Seek( 1, soFromBeginning );
        jpg.LoadFromStream( Recursos );
        Image1.Canvas.Draw( 0, 0, jpg );
        Recursos.Free;
        Image1.Free;
      end;

    1:begin
        jpg:= TJpegImage.Create;
        Recursos := TResourceStream.Create( hInstance, 'RES_IMG_1', RT_RCDATA );
        Recursos.Seek( 2, soFromBeginning );
        jpg.LoadFromStream( Recursos );
        Image1.Canvas.Draw( 0, 0, jpg );
        Recursos.Free;
        Image1.Free;
      end;

    2:begin
        jpg:= TJpegImage.Create;
        Recursos := TResourceStream.Create( hInstance, 'RES_IMG_2', RT_RCDATA );
        Recursos.Seek( 3, soFromBeginning );
        jpg.LoadFromStream( Recursos );
        Image1.Canvas.Draw( 0, 0, jpg );
        Recursos.Free;
        Image1.Free;
      end;
end;

end;

El problema es que seleccione el elemento que sea del combo, el ejecutable me devuelve "error Jpg #53" y no sé como solucionarlo, he visto por la web que es problema de memoria, pero ¿como puedo arreglarlo?

Gracias de antemano.