Video streaming library for Delphi and C++ Builder.
JPEG video streaming using Motion JPEG over HTTP
supports Delphi/C++ Builder 10.1 - 10.3
supports Windows 32/64 and Android applications
source code included in registered version
royalty free distribution in applications

How can I set quality of JPEG images in server FMX application?
procedure TFormMain.PrepareStreamImage;
var SaveParams: TBitmapCodecSaveParams;
begin
  BitmapSurface.Assign(Bitmap);
  CriticalSection.Enter;
  try
    JpegStream.Position := 0;
    SaveParams.Quality := 50;
    TBitmapCodecManager.SaveToStream(JpegStream, BitmapSurface, 'jpg', @SaveParams);
    JpegStream.Size := JpegStream.Position;
  finally
    CriticalSection.Leave;
  end;
end;

Only for V.I.P