GetMouseButtons SIGSEGV Fehler

    GetMouseButtons SIGSEGV Fehler

    Quellcode

    1. procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
    2. Shift: TShiftState; X, Y: integer);
    3. begin
    4. Showmessage(IntToStr(GetMouseButtons));
    5. MausDaun := True;
    6. Mausklick(X, Y);
    7. end;

    Das wars. Ich habe auch Mouse in "Uses" angegeben, dementsprechend wird auch kompiliert, aber in dem Moment wo auf IntToStr(GetMouseButtons) zugegriffen wird, gibt es eine Fehlermeldung: SIGSEGV.

    Im Assembler wird ntdll!RtlIdnToUnicode angezeigt.

    Danke im Vorraus.