Fehler bei Wertzuweisung

[Alter Mann]

Hallo alle Zusammen,

ich habe das Problem, das ich beim Programmablauf an einer bestimmten Stelle einen
Zugriffsfehler bekomme. Setze ich dort einen Haltepunkt und überprüfe sie mittels
'Auswerten / Ändern' wird die Wertzuweisung korrekt angezeigt (Beweis im Anhang).

Code:

function GetIdentifyStr(const InqBuf : PWord; InqBufSize : Integer): String;
var
   P : PWORD;
   I,J : Integer;
   S : Array[0..127] of Char;
begin
  P := InqBuf;
  I := 0;
  J := 0;
  FillChar(S, SizeOf(S), Char(32));
  while I < InqBufSize do
  begin
    inc(I);
    inc(P);
    S[J] := Char(P^ shr 8);     <- Hier kommt die Zugriffsverletzung
    inc(J);
  end;

  Result := StrPas(S);
end;

Könnt ihr mal schauen was da quer liegt. Für Lösungen wäre ich dankbar.