Windows API - Parameterübergabe klappt nicht

[Luckie]

Was machst du denn da für Verrenkungen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  State: TKeyboardState;
begin
  GetKeyBoardState(State);

Pointer in API Funktionen werden in der Regel mit var-Parametern in Delphi übersetzt.