warum sind .bmp sooo viel größer als Jpeg?

[SirThornberry]

Delphi-Quellcode:

TPicture = class(....)
[...]
  property Bitmap: TBitmap read GetBitmap write SetBitmap;
[...]

procedure TPicture.SetBitmap(Value: TBitmap);
begin
  SetGraphic(Value);
end;

procedure TPicture.SetGraphic(Value: TGraphic);
var
  NewGraphic: TGraphic;
begin
  NewGraphic := nil;
  if Value <> nil then
  begin
    NewGraphic := TGraphicClass(Value.ClassType).Create;
    NewGraphic.Assign(Value); //<=== Tada, es wird kopiert :-)
[...]