Die zweite Variante ist die richtige, allerdings solltest Du das mit einem try finally Block machen.
Delphi-Quellcode:
procedure TFormViewFinMathZins.FormCreate(Sender: TObject);
var
Stream: TStream;
begin
Stream:= TResourceStream.Create(HInstance, 'EWoZZ', RT_RCDATA);
try
Image1.Bitmap.LoadFromStream(stream);
finally
stream.free;
end;
end;
Du kannst Dir allerdings den stream sparen, TBitmap hat auch eine LoadFromResourceName-Methode...