procedure HighlightWindow(hWndWindow: HWND);
var hDCWindow: HDC;
RECT: TRect;
DINV: Integer;
begin
if (hWndWindow = 0) or (Not IsWindow(hWndWindow)) then
Exit
else begin
hDCWindow := GetWindowDC(hWndWindow);
Windows.GetWindowRect(hWndWindow, RECT);
OffsetRect(RECT, -RECT.Left,-RECT.Top);