Bitmap in TMetafile ausgeben Windows 7

[DeddyH]

Könntet Ihr bitte noch Ressourcenschutzblöcke einbauen? Nicht, dass das später jemand so übernimmt und sich Speicherlecks einfängt.

[edit]

Delphi-Quellcode:

  MyMetafile := TMetafile.Create;
  Bitmap := TBitmap.Create;
  try
    ...
  finally
    Bitmap.Free;
    MyMetafile.Free;
  end;

ist aber auch nicht ganz korrekt.

Delphi-Quellcode:

MyMetafile := TMetafile.Create;
try
  Bitmap := TBitmap.Create;
  try
    ...
  finally
    Bitmap.Free;
  end;
finally
  MyMetafile.Free;
end;

Oder man initialisiert die "innere" Instanz mit nil, dann kann es auch im finally nicht knallen.[/edit]