Konvertering af æ,ø,å til ASCI værdi

Jeg har en tekst, hvor æ,ø og å skal konverteres.

Jeg har en tabel med de forskellige ASCI værdier for æ,ø,å.

Men hvordan for jeg sat ASCI værdien?

Jeg har lavet følgende før jeg gik i stå.

function TDmBonPrinter.UdskiftBogstav(aText: string): string;

  Function Change(aText: char):Char;
  begin
    if aText = 'æ' then Result := dtsBonPrinterLilleAE.AsString else
    Result := aText;
  end;

var
  i: integer;
begin
  For i:= 1 to Length(aText) do aText[i]:= Change(aText[i]);
  Result:= aText;
end;