Sowas von alt ... stimmt.
Nichtmal in deinem Delphi 2010 wird er funktionieren, da die grundlegensten Dinge falsch sind,
was übrigens auch der Hauptgrund ist, weswegen viele Codes seit dem Jahre 2009 plötzlich abrauchen.
Aber keine Sorge, denn der Compiler wird das Problem freundlich mit Warnungen beglücken, (nur blöd, dass zu viele alle Warnungen einfach ignorieren)
denn du gibst einen "veränderlichen" compilerabhängigen Typen in einen statischen Cast und Funktionsaufruf rein
und im Jahre des Delphi 2009 änderte sich dieser Typ, weswegen es nun knallt.
String -> PChar ->
WinApi
AnsiString -> PAnsiChar -> WinApiA
WideString/UnicodeString -> PWideChar -> WinApiW