Anweisung funktioniert in Delphi 2005, aber nicht in Lazarus

[Delphi_gn7]

Hallo,

ich habe mit Delphi 2005 folgenden Code in einem Programm:

Delphi-Quellcode:

        while not Eof(datei) do  // Dateitext in s2 laden
              begin
               Readln(datei,s);
               CharToOem(PChar(s),PChar(s));
               s2:=s2+s;
              end;

Da Delphi 2005 bei mir nicht mehr funktioniert, benutze ich nun Lazarus, was mir in der Zeile
CharToOem(PChar(s),PChar(s)); den Error: Illegal type conversion: "ShortString" to "^Char" anzeigt. Was muss ich ändern, damit die Zeile in Lazarus funktioniert?

Mfg