Zugriffsverletzung beim Ausführen von Halt

[backdraft]

Das ist der letzte Befehl den er ausführt.
Result := CallWindowProc(IntPtr(GetWindowLong(hWnd, GWL_USERDATA)), hwnd, uMsg, wParam, lParam);

Danach kommt er hier hin

procedure TALCustomButton.WndProc(var Message: TMessage);
begin
case Message.Msg of

In dem Moment, wenn ich den Begin ausführe kommt die zugriffsverletzung