[icWasya]

а если вместо этого

Код:

hWinDC:=GetWindowDC(Self.Handle);   
BitBlt(Bm.Canvas.Handle,0,0,Bm.Width, Bm.Height, hWinDC,0,0,SRCCOPY); 

использовать

Код:

Self.PaintTo(Bm.Canvas,0,0);