Ist die Unit jpeg fehlerhaft?

[blablab]

danke für die schnelle antworten!

@mkinzler: ich will mehrere jpegs in eine datei speichern

@uwe raabe: so funktionierts. danke! nur leider ist mein eigentliches problem damit immer noch nicht gelöst...
und zwar sieht das folgendermaßen aus:


ich speicher meine Bilder so:

Delphi-Quellcode:

procedure TContacts.SpeichernBilder(var str: string);
var i, tmp: integer;
      strstr: TStringStream;
      tmpstr: string;
begin
   //Anzahl der Bilder speichern
   tmp := Length(Bilder);
   str := str + VarToString(@tmp, SizeOf(tmp));

   for i := 0 to Pred(tmp) do with Bilder[i] do begin
      //Bild speichern
      tmpstr := '';
      if not Empty then begin
         strstr := TStringStream.Create('');
         SaveToStream(strstr);
         tmpstr := strstr.DataString;
         strstr.Free;
      end;
      tmp := Length(tmpstr);
      str := str + VarToString(@tmp, SizeOf(tmp)) + tmpstr;
   end;
end;

und dann lad ich sie wieder so:

Delphi-Quellcode:

procedure TContacts.LadenBilder(var str: string; var pos: cardinal);
var i, laenge, tmp: integer;
      strstr: TStringStream;
      tmpstr: string;
begin
   //Anzahl der EigensDefs auslesen
   laenge := StringToInt(Copy(str, pos, SIZE));
   SetLength(Bilder, laenge);
   Inc(pos, SIZE);

   //Objekte initialisieren
   for i := 0 to Pred(laenge) do with Bilder[i] do begin
      Bilder[i] := TJPEGImage.Create;
      //Bild laden
      tmp := StringToInt(Copy(str, pos, SIZE));
      Inc(pos, SIZE);
      if tmp > 0 then begin
         strstr := TStringStream.Create(Copy(str, pos, tmp));
         tmpstr := Copy(str, pos, tmp);
         LoadFromStream(strstr);
         strstr.Free;
         Inc(pos, tmp);
      end;
   end;
end;

aber irgendwie klappts net so richitg.
der string den ich speicher ist 6671 zeichen lang und der der zu laden ist ist au wieder 6671 zeichen lang und die ersten zeichen stimmen auch überein. deshalb geh ich mal davon aus, dass die strings identisch sind...
ich hab auch mal Position := 0 reingemacht aber es geht trotzdem nicht
ich krieg immer eine zugriffsverletzung...