[delphi.com.ar]

Veo que no te entendí bien, este código yo lo utilizo, después de hacer unas cuantas cosas, entre ellas lo que haces vos:

var
  hBmp : HBITMAP;
  Bmp  : TBitmap;
begin
  ...
  hBmp := CreateDIBitmap( GetWindowDC(GetDesktopWindow()), ... );
  Bmp := TBitmap.Create;
  Try
    Bmp.Handle := hBmp;
    Bmp.SaveToFile( 'c:\...' );
  finally
    Bmp.Free;
  end;

Lo resumí un poquito...