outofsystemresource.为什么？？？？？

在程序中，我每一分钟做一次拷屏操作：
代码如下：
......
TCanvas *dtCanvas = new TCanvas; 
dtCanvas->Handle=GetDC(0); 

Graphics::TBitmap *bitmap=new Graphics::TBitmap; 
bitmap->Width=Width; 
bitmap->Height=Height; 

int nColors=GetDeviceCaps(Canvas->Handle,SIZEPALETTE); 
LOGPALETTE* logPal=(LOGPALETTE*)new Byte[sizeof(LOGPALETTE)+(nColors-1)*sizeof(PALETTEENTRY)]; 
logPal->palVersion=0x300; logPal->palNumEntries=(Word)nColors; 
GetSystemPaletteEntries(Canvas->Handle,0,nColors,logPal->palPalEntry); 
bitmap->Palette=CreatePalette(logPal); 
delete[] logPal; 

TRect src=BoundsRect; 
TRect dest=Rect(0,0,Width,Height); 
bitmap->Canvas->CopyRect(dest,dtCanvas,src); 

bitmap->SaveToFile("Screen"+IntToStr(i)+".bmp"); (i在前面已经定义)

delete bitmap; 
delete dtCanvas; 

发现50分钟后，系统报错：
out of system resource.
（重新运行50分钟后，同样出问题。）
问题在哪里？

8 个解决方案