Кодировка UCS и обратно

[Rompler]

Всем доброго времени)
Т.к. не силен в программировании Решил спросить у понимающих людей в своем деле
Использую функцию перевода текста в кодировку UCS на Delphi 2010

function AnsiToUCS(AStr: AnsiString): AnsiString;

  function Convert(AChar: AnsiChar): AnsiString;
  var
      j: integer;
  begin
    Result := '';
    j := ord(AChar);
    case j of
      192..255: j := j + 848;
      184: j := 1105;
    end;
    Result := IntToHex(j, 4)
  end;

var
  c, i: integer;
begin
    Result := '';
  c := Length(AStr);
  for i := 1 to c do
    Result := Result + Convert(AStr[i]);
end;

А вот функция с обратным переводом

function UCSToAnsi(AStr: AnsiString): AnsiString;

  function Convert(ACnvStr: AnsiString): AnsiChar;
  var
    j: integer;
  begin
    j := StrToIntDef('$'+ACnvStr, 0);
    case j of
      1040..1103: j := j - 848;
      1105: j := 184;
    end;
    Result := Chr(j);
  end;

var
  c, i: integer;
begin
  Result := '';
  c := Length(AStr) div 4;
  for i := 0 to c - 1 do
    Result := Result + Convert(Copy(AStr, i*4+1, 4)); end;

Выдает ошибку

Compiling Project1.dproj (Debug configuration)
[DCC Warning] Unit1.pas(49): W1057 Implicit string cast from 'AnsiString' to 'string'
[DCC Error] Unit1.pas(54): E2010 Incompatible types: 'AnsiChar' and 'Char'
[DCC Warning] Unit1.pas(81): W1058 Implicit string cast with potential data loss from 'string' to 'AnsiString'
[DCC Warning] Unit1.pas(94): W1058 Implicit string cast with potential data loss from 'TCaption' to 'AnsiString'
[DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'
Failed

Как это можно исправить?

[uberchel]

Убери везде приставку Ansi

[Rompler]

Спасибо большое))) Действительно помогло))