Problem med lukning af program.

Davs...

Jeg har lavet et delphi program via Windows apien. Jeg har skrevet Winproc som følgende:

function WindowProc(hWnd: hWnd; uMsg,    wParam,    lParam: Integer): Integer; stdcall;
begin

Result := 0;

case uMsg of
  WM_CLOSE: DestroyWindow(hWnd);
  WM_SYSCOMMAND:
  begin
    if(wParam = SC_CLOSE) then
      DestroyWindow(hWnd);
  end;
  WM_DESTROY:
  begin PostQuitMessage(0); end;
else
  Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
end;

end;

Når jeg så klikker på krydset så skulle programet gerne lukke, men det sker ikke. Det er kun GUI'en der forsvinder. Hvad gør jeg galt.

På forhånd tak...