Memory Leak nach Zuweisung eines Resourcestream

[Peter-Pascal]

Hallo,

ich hoffe in dieser Rubrik richtig zu sein.

Meine Frage gilt folgender Zuweisung und anschließendem Memory Leak:

Delphi-Quellcode:

procedure TFormViewFinMathZins.FormCreate(Sender: TObject);
begin
  Image1.Bitmap.LoadFromStream(TResourceStream.Create(HInstance, 'EWoZZ', RT_RCDATA));
end;

Nach Beendigung des Programms bekomme ich beigefügte Meldung über unerwartete (schwarze) Löcher im Speicher. Das leuchtet mir schon ein, aber wie bekomme ich das Loch gestopft?

Wähle ich folgende Variante:

Delphi-Quellcode:

procedure TFormViewFinMathZins.FormCreate(Sender: TObject);
var
  Stream: TStream;
begin
  Stream:= TResourceStream.Create(HInstance, 'EWoZZ', RT_RCDATA);
  Image1.Bitmap.LoadFromStream(stream);
  FreeAndNil(stream)
end;

habe ich logischerweise das Problem nicht.
Meine Frage: Ist es möglich bei der ersteren (eleganteren) Variante die Ressource zu beenden?

Vielen Dank für eure Mühe und
viele Grüße Peter