PChar to String & zurück - Zeichen geht verloren

[Dax]

Delphi-Quellcode:

function PCharDLLFunktion(str: PChar): Integer;
var s: String;
begin
  s := StringDLLFunktion;
  if str = nil then
    Result := Length(s)
  else 
  begin
    try
      Move(s[1], str^, Length(s));
      Result := -1; //Success
    except
      Result := -2; //Failure
    end;
  end;
end;


function NichtDLLFunktion: String;
begin
  SetLength(Result, PCharDLLFunktion(nil));
  if PCharDLLFunktion(@Result[1]) <> -1 then
    MessageBox('Fehler');
end;

// Oder so ähnlich