EOutOfResources - Systemressourcen erschöpft. Warum???

[romber]

Beim Versuch, generiertes Screenshot in eine Stream zu speichern bekomme ich ständig die o.g. Fehlermeldung. Warum? Was ist falsch?

Hier ist mein Code:

Delphi-Quellcode:

var 
  HDdc: HDC; 
  Bild: TBitmap;
  CopyWidth: integer;
  CopyHeight: integer;
  fStream: TMemoryStream; 
begin 
  fStream := TMemoryStream.Create;
  repeat
    HDdc := GetDC(0); 
    CopyWidth := Screen.Width;
    CopyHeight := Screen.Height;
    Bild := TBitmap.Create; 
    Bild.PixelFormat := pf24bit; 
    Bild.SetSize(CopyWidth, CopyHeight); 
    BitBlt(Bild.Canvas.Handle, 0, 0, CopyWidth, CopyHeight, HDdc, 0, 0, SRCCOPY); 
    ReleaseDC(0, HDdc); 
    fStream.Clear;
    fStream.Position := 0;
    Bild.SaveToStream(fStream);   //  <--- An dieser Stelle kommt es zu der Fehlermeldung. Wenn ich die Zeile auskommentiere, passiert nichts.
    Bild.Free;
  until cStop > 0;
  fStream.Free;