Delphi 環境変数を含むファイルパスをフルパスへ変換

Delphiで、環境変数を含むファイルパスをフルパスへ変換

function ExpandEnvironmentFileName(APath: string): string;
var L: Integer;
begin
    L := ExpandEnvironmentStrings(PChar(APath), nil, 0);
    SetLength(Result, L * 2);
    ExpandEnvironmentStrings(PChar(APath), PChar(Result), L * 2);
    Result := StrPas(PChar(Result));
end;