Screenshot über Sockets als JPEG versenden

[Neuni]

Also erstellt hab ich den stream ja jetzt eigendlich mit Tmemorystream.create, und dat speichern in den stream geht nun auch, ohne dass er was sagt, aber wie bekomm ich das bild nun wieder aus dem stream raus?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
stream := Tmemorystream.Create;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
   jpg: TJpegImage;

begin

//init
jpg := nil;


  try
    jpg := TJpegImage.Create;
    jpg.Assign(image1.Picture.Bitmap);
    //Hier können JPG-Eigenschaften wie Kompression, Größe usw. gesetzt werden

    jpg.SaveToStream(stream);
    finally
      jpg.Free;
      end;
  end;

Wenn ich stream.SaveToFile('C:\lolka.jpg'); nehme, dann kann ich dat bild speichern, das geht auch, aber wie bekomm ichs ins image ohne zwischenspeichern?