TJpegImage saveToStream und saveTo File funktioniert nicht

[sx2008]

Ich sehe da jede Menge Code Smells in deinen Sourcecode Schnippseln.
Du greifst z.B. ständig auf die globale Variable form1 zu.

Oder noch ein Beispiel:

Delphi-Quellcode:

procedure TAdmin.loadPicture;
...
begin
  if form1.OpenPictureDialog1.execute then begin

Der Aufruf von form1.OpenPictureDialog1.execute ist doch von Hinten-durch-die-Brust-ins-Auge.
Gib' der procedure loadPicture einen Übergabeparameter const filename:string und der Code wird deutlich besser.
Wenn du diese Probleme beseitigst, dann wird auch dein ursprüngliches Problem leichter zu beheben.