HBITMAP nach TBitmap

[KodeZwerg]

Ich arbeite gerade mit Bilder im Speicher, manchmal verschwindet mal ein Bild, nun wollte ich mir ein temporäres fertig-Bitmap anlegen.
Meine Quelle ist ein HBITMAP, ich vermute da es sich um ein Handle handelt, verschwinden deswegen ab und zu Bilder bei mir.
Nach viel hin und her probieren bin ich zu so etwas gekommen, würdet Ihr sagen dass das der Richtige Weg ist oder bin ich so total falsch unterwegs um als Ziel ein permanentes TBitmap zu erhalten was nicht flüchtig ist?

Delphi-Quellcode:

function HBmpToTBmp (Handle: HBITMAP) : TBitmap;
var
  bmp : PBitmapInfoHeader;
  hdr : TBitmapFileHeader;
  s : TStream;
begin
  Result := TBitmap.Create;
  try
    s := Nil;
    bmp := PBitmapInfoHeader (GlobalLock (Handle));
    try
      FillChar (hdr, SizeOf (hdr), 0);
      hdr.bfType := $4D42;
      s := TMemoryStream.Create;
      s.Write (hdr, SizeOf (hdr));
      s.Write (bmp^, GlobalSize (Handle));
      s.Position := 0;
      Result.LoadFromStream (s);
    finally
      GlobalUnlock(Handle);
      s.Free
    end
  except
    FreeAndNil (Result);
    raise
  end
end;