Farbwerte aus JPEG Bildern auslesen

[Binärbaum]

Mir ist aufgefallen, dass du bei solchen Prozeduren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var Jpeg: TJpegImage;
    FBitmap:TBitmap;
begin
  Jpeg := TJpegImage.Create;
  try
    Jpeg.LoadFromFile(edit1.text);
    FBitmap := TBitmap.Create;
    FBitmap.Assign(Jpeg);
    Image1.Picture.Bitmap := FBitmap;
  finally
    Jpeg.Free;
  end;
end;

das FBitmap am Ende nicht mehr mit FBitmap.Free freigibst. Das ist doch sicher nicht so gewollt, oder?

MfG
Binärbaum