Как сделать строку в символ

function Translit(s: string): char;
var
 i: integer;
 t: string;
 
begin
 for i:=1 to Length(s) do
  begin
   case s[i] of
        '101A': t:=t+'Ч';
        '101B': t:=t+'D';
        '101C': t:=t+#13#10;
        '101D': t:=t+#9;
        '101D': t:=t+' ';
 
      else t:=t+s[i];
   end;
  end;
 Result:=t;
end;

var s,s1,t:string;
...........................
i:=1;
t:='';
while i<length(s)-3 do
 begin
  s1:=copy(s,1,4);
  if s1='101A' then t:=t+'×'
  else if s1='101B' then t:=t+'D'
  else if s1='101C' then t:=t+#13#10
  else if s1='101D' then t:=t+#9
  else if s1='101D' then t:=t+' '
  else t:=t+s1;
  i:=i+4;
 end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Vcl.Menus, Vcl.ComCtrls;
 
type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    RichEdit2: TRichEdit;
    procedure RichEdit1Change(Sender: TObject);
  private
  public
  end;
 
var
  Form1: TForm;
 
implementation
 
{$R *.DFM}
 
function Translit(s: string): string;
var s1,t:string;
    i: integer;
begin
i:=1;
t:='';
while i<length(s)-3 do
 begin
  s1:=copy(s,1,4);
  if s1='101A' then t:=t+'×'
  else if s1='101B' then t:=t+'D'
  else if s1='101C' then t:=t+#13#10
  else if s1='101D' then t:=t+#9
  else if s1='101D' then t:=t+' '
  else t:=t+s1;
  i:=i+4;
 end;
end;
 
procedure TForm1.RichEdit1Change(Sender: TObject);
var
 i: integer;
 
 begin
 RichEdit2.Lines.Clear;
 for i:=0 to RichEdit1.Lines.Count-1 do
  RichEdit2.Lines.Add(Translit(RichEdit1.Lines.Strings[i]));
  RichEdit2.Text := Translit(RichEdit1.Text);
end;
 
end.

result:=t;
end;

function Translit(s: string): string;
var s1,t:string;
    i: integer;
begin
i:=0;
t:='';
while i<length(s)-3 do
 begin
  s1:=copy(s,1,4);
  if s1='101A' then t:=t+'Г'
  else if s1='101B' then t:=t+'D'
  else if s1='101C' then t:=t+#13#10
  else if s1='101D' then t:=t+#9
  else if s1='101S' then t:=t+' '
  else t:=t+s1;
  i:=i+4;
 end;
 result:=t;
end;

function Translit(s: string): string;
const
CharArr : array of String = ['Г', 'D', #13#10, #9, ' '];
strArr : array of String = ['101A', '101B', '101C', '101D', '101S'];
 
var
s1,cs,ss:string;
i: integer;
begin
 
 for i := 0 to High(strArr) do
     s := StringReplace(s, strArr[i], CharArr[i],  [rfReplaceAll, rfIgnoreCase]);
 
 result:=s;
end;

s1,cs,ss:string;