В Windows XP хорошо, в Windows 7 - плохо... AV в comctl32.dll

[Upgrades]

Здравствуйте.

Написанная мной программа в Delphi 2010 и скомпилированная в Microsoft Windows XP build 2600, Service Pack 3, у товарища с Microsoft Windows 7 build 7600 не работает, более точно возникает ошибка Access Violation в модуле comctl32.dll.

В Call Stack видно, что исключение было в USER32.dll в Procedure / Method: CallWindowProcW, я в программе использовал AdvListView и исключение было вызвано при использовании функции:

var
   wpCoord: TRect;

function EditSubclassProc(hwnd: tHandle; uMsg: Integer; wParam: word; lparam: longint): Integer; stdcall;
var
   pwp: PWindowPos;

begin
   if umsg = WM_WINDOWPOSCHANGING then
   begin
     pwp := PWindowPos(lparam);
     with pwp^ do
     begin
        x := wpCoord.Left;
        y := wpCoord.Top;
        cx := wpCoord.Right - wpCoord.Left;
        cy := wpCoord.Bottom - wpCoord.Top;
     end;
   end;

   Result := CallWindowProc(tfnwndproc(wpOrigEditProc), hwnd, uMsg, wParam, lParam);
end;

... на строке Result.

В программе пользователь выделяет строку в AdvListView (vsReport) жмёт второй раз по любому SubItem'у и может редактировать его, в этот момент в Win7 и происходит ошибка AV. Помогите пожалуйста, как бороться?

[Alex Cones]

Покурите мясо. После этого посмотрите в исходниках дельфы, какая процедура вызывается? CTRL+CLICK на CallWindowProc. По идее должна быть CallWindowProcA, а не CallWindowProcW

[GunSmoker]

Если что-то работает - это ещё не значит, что это должно работать.

wParam: word

А по рукам за бездумный copy&paste?

P.S. Видимо, не имеет отношения к проблеме, но почитать.