[Lazarus] TPicture SIGSEGV

[Leonardo M. Ramé]

Hi, I'm using Lazarus on x86_64 compiled from today and fpc 20240. I've
placed a TImage with a picture assigned, on a TForm.

I need to do Image1.Picture.Bitmap, to obtain the bitmap associated, but
when picture.bitmap is called, the TPicture.ForceType method is called,
and I get a SigSegv there:

procedure TPicture.ForceType(GraphicType: TGraphicClass);
var
  NewGraphic: TGraphic;
begin
  if not (FGraphic is GraphicType) then
  begin
    NewGraphic := GraphicType.Create;
    NewGraphic.Assign(FGraphic); <--- boom!
    FGraphic.Free;
    FGraphic := NewGraphic;
    FGraphic.OnChange := @Changed;
    FGraphic.OnProgress := @Progress;
    Changed(Self);
  end;
end;

The assigned image is a .png I've set using the ObjectInspector's
TImage.Picture property.

Why the SIGSEGV is raised?.

Regards,
-- 
Leonardo M. Ramé
http://leonardorame.blogspot.com