окна верхнего уровня в WinApi

[N!n@]

Помогите, пожалуйста. Никак не могу разобраться....
Задание:" надо найти все окна верхнего уровня и увеличить их в полтора раза".

program Prog;

uses
SysUtils,
Windows;

function Callback(hWnd: HWND; lParam: LPARAM): Bool; stdcall;
var
x, y: Integer;
Rect: TRect;
Style: Longint;
Menu: Bool;
Context: HDC;
ARect: LongBool;
lpRect: Integer;

begin
GetWindowRect(hwnd, Rect);
x := - Rect.Left + Rect.Right;
y := Rect.Bottom - Rect.Top;
x := Round(x*1.5);
y := Round(y*1.5);
SetWindowPos(hWnd, HWND_TOP, CW_USEDEFAULT, CW_USEDEFAULT, x, y, SWP_NOMOVE );
end;

var
WndInsertAfter: HWnd;
X: Integer;

begin
EnumWindows(@Callback, 0);
end.

проблема в том, что на XP почему-то не работает с калькулятором на 7 прекрасно работает со всеми окнами((((( подскажите, что можно с ним сделать...