Вобщем нужно скопировать содержимое другого окна приложения в битмап.

Wd — указатель окна
BMP:= TBitmap.Create;
Windows.GetClientRect(WD, ARect);
with BMP, ARect do
begin
Width := ARect.Right — ARect.Left;
Height := ARect.Bottom — ARect.Top;
WinDC:=GetWindowDC(wd);// получаем для окна контекст устройства
BitBlt(Canvas.Handle, 0, 0, Width, Height, WinDC, 0, 0, SRCCOPY);
end;

Всё хорошо, только BitBlt работает очень медленно, нельзя ли как-то это ускорить?
Или, может быть, есть другие функции.