Habe es wiedereinmal alleine gelöst...
Delphi-Quellcode:
s := TIdURI.URLDecode(CorrectedString);
RBS := StringToAnsiStringAsIs(s); // !!! Hauptproblem ist hier
mit
Delphi-Quellcode:
function StringToAnsiStringAsIs(const A: String): AnsiString;
var
i: Integer;
begin
SetLength(Result, Length(A));
for i := 1 to Length(A) do
Result[i] := AnsiChar(Ord(A[I]));
end;
Allerdings frage ich mich ob es nicht etwas natives gibt...