Das in deinem anderen Thread angesprochene Problem mit der CPU Auslastung liegt an deiner Poll-Schleife;
Delphi-Quellcode:
while not Terminated do
begin
WaitForInputIdle(hInstance, 10);
if (GetAsyncKeyState(VK_LBUTTON) <> 0) and PtInRect(R, Mouse.CursorPos) then
Synchronize(DoClick);
end;
Da fehlt zwischendurch z.B. ein Delay. So rennst du so schnell durch die Schleife wie es eben die CPU erlaubt und lastest die dabei komplett aus.