Ich kürze das mal hier ab. Ich glaube diese Zeile macht mir Probleme:
Code:
Inc(LsiWork); // Da der Typ jetzt dem der Struktur entspricht reicht inc
Ich hatte auch mal ähnliches benutzt, wo die Variable mit SizeOf() hochgezählt wurde. Dies ging ebenfalls nicht aber ein Test mit der hälfte (größe div 2) ging dann wiederum. Aber man kann ja nicht (ohne Plan) irgendwas machen

Ich bekomme jedenfalls immer eine "c0000005 ACCESS_VIOLATION" Meldung angezeigt. Im Debugger wird eine Zeile markiert:
Code:
function _PWCharLen(P: PWideChar): Integer;
{$IFNDEF LEGACY_PWCHARLEN}
begin
Result := 0;
if P <> nil then
while P[Result] <> #0 do // <- diese hier wird markiert (ist aus der system.pas)
Inc(Result);
end;
Hier beim schreiben... ich habe den Code gerade mal unter
Win32 ausgeführt. Ist mir gerade so eingefallen. Da geht es. Zurück auf Win64 und schon ist der Fehler wieder da. Weiß jemand, wie ich das anpasse, damit es bei 32 sowie auch bei 64 Bit geht?