Delphi Programm schlägt den Speicher voll

[DD2k3]

hi,

ich will mit einen Programm den Bildschirm aufzeichnen, und habe dazu etwas gefunden (siehe unten). Nun ist aber das Problem das Delphi nach paar minuten EOutOfResources anzeigt weil das Programm den speicher vollschlägt, und ich weis nicht warum. Es ist der Einzige teil des Quelltextes was diesen Fehler verursachen muss, aber mein wissen ist noch sehr begrenzt .

thx schonmal

Delphi-Quellcode:

procedure ScreenShot(OurImage:TBitmap);
var DCPuffer, DC : HDC;
    Puffer :       HBitmap;
    x,y:           integer;
begin
     DC := CreateDC('DISPLAY',nil,nil,nil);
     x  := screen.Width;
     y  := screen.height;
     DCPuffer := CreateCompatibleDC(DC);
     Puffer := CreateCompatibleBitmap(DC,x,y);
     SelectObject(DCPuffer,Puffer);
     BitBlt(DCPuffer,0,0,x,y,dc,0,0,srccopy);
     OurImage.Width  := x;
     OurImage.Height := y;
     BitBlt(OurImage.canvas.Handle,0,0,x,y,DCPuffer,0,0,srcCopy);
     DeleteDC(DCPuffer);
     DeleteDC(DC)
end;