Hvorfor kan jeg ikke streame JPEG ligesom Bitmaps?

Hvis jeg skriver TBitmaps til en Stream, så kan jeg uden problemer læse dem tilbage igen.  Dette gør jeg således:


S = En eller anden stream (TMemoryStream, TFileStream  uvæsentligt)

Var
  BitMap : TBitmap;
  x      : Integer;
Begin
  // Gem en masse Bitmaps i stream.
  BitMap := TBitmap.Create;
  Try
    S.Position := 0;

    For X := 1 To SomeNumberOfBitmaps Do
      Begin
        BitMap.LoadFromFile(\'BitMap no.\'+IntToHex(X, 4),\'.Bmp\';

        BitMap.SaveToStream(S);
      End;
  Finally
    BitMap.Free;
  End;


  // Hent en masse Bitmaps fra stream.
  BitMap := TBitmap.Create;
  Try
    S.Position := 0;
    For X := 1 To SomeNumberOfBitmaps Do
      Begin
        BitMap.LoadFromStream(S);

        BitMap.SaveToFile(\'BitMap no.\'+IntToHex(X, 4),\'.Bmp\';
      End;
  Finally
    BitMap.Free;
  End;

Dette virker fint (forudsat at jeg nu har skrevet syntaxen korrekt - det er lige ud af hånden)

Hvis vi så erstatter alle Bitmap (TBitMap) referencer i det ovenstående til JPEG (TJPEGImage), og husker at USES JPEG, så burde det ifølge mit lille hovede virker ligeså fint.
Det gør det bare ikke.
Første gang jeg læser en JPEG fra streamen, så kan jeg se at position bliver flyttet frem (en ca. 200 kByte, hvilket virker fint i forhold til den størrelse filer jeg arbejder med). men der bliver tilsyneladende ikke lagt noget image ind i JPEG komponenten.  Anden gang jeg læser fra streamen i loopen går lortet ned med en Exception (Access violation).

Hvad hulen går der galt her?


Peter