Kodowanie znaków

Czy jest możliwość ustawienia kodowania przy zapisie (savedialog) lub w komponencie (memo, richedit) znaków ISO i WIN ?

Jestem lajkiem więc proszę o kodzik. Jak się nie mylę jak będę miał kod z WIN na ISO to tylko będę musiał coś po zamieniać i wyjdzie mi z ISO na WIN

function set_pl_chars(S: String): String;
var i: Integer;
begin
  for i := 1 to Length(S) do // ISO -> WIN
    case S[i] of
      Chr(161): S[i] := Chr(165);
      Chr(166): S[i] := Chr(140);
      Chr(172): S[i] := Chr(143);
      Chr(177): S[i] := Chr(185);
      Chr(182): S[i] := Chr(156);
      Chr(188): S[i] := Chr(159);
    end;
 
  Result := S;
end;