Элементарная программа в делфи грузит проц на 50%

uses
windows;
var
bmp,DC: HDC;
begin
DC :=CreateDC('DISPLAY',0,0,0);
bmp:=CreateCompatibleDC(DC);
SelectObject(bmp,LoadImage(0,'D:\logo.bmp',IMAGE_BITMAP,0,0,LR_LOADFROMFILE));
while GetAsyncKeyState(VK_ESCAPE) and $0=0 do
StretchBlt(DC,0,0,GetSystemMetrics(SM_CXSCREEN),GetSystemMetrics(SM_CYSCREEN),bmp,0,0,1024,768,SRCCOPY);
end.

Есть варианты решения ?

Примечание:
Вообще-то она грузит на 100%. Просто у тебя проц двухъядерный.

Рядом стоит машина одно ядерная, с установленной на борту winserv2003 история та же.

в делфи я новичок, поподробнее можно, мне нужно сделать чтобы картинка была поверх всех окон, и пропадала только по требованию.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.