Screenshot über Sockets als JPEG versenden

[Neuni]

Jetzt hab ich dat einfach so gemacht, aber dann kommt nen "ABstrakter Fehler":

Delphi-Quellcode:

procedure TForm1.Button1Click(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;