Тогда на чистом проекте попробуйте:
Код:
propcedure TForm1.Button1Click(Sender: TObject);
begin
ScreenDC := GetDC(0);
try
BitBlt(Form1.Canvas.Handle, 0, 0, <Width>, <Height>, ScreenDC, <Left>, <Top>, SRCCOPY);
finally
ReleaseDC(0, ScreenDC);
end;
end;
На чистой форме должно отобразиться то, что заскриншотится (без промежуточных TBitmap).