������������� KOI8 � WIN

  Const
  Koi: Array[0..66] of Char = ('_', '�', '�', '�', '�', '�', '�', '�', '�', '�',
                               '�', '�', '�', '�', '�', '�', '�', '�', '�', '�',
                               '�', '�', '�', '�', '�', '�', '�', '�', '�', '�',
                               '�', '�', '�', '�', '�', '�', '�', '�', '�', '�',
                               '�', '�', '�', '�', '�', '�', '�', '�', '�', '�',
                               '�', '�', '�', '�', '�', '�', '�', '�', '�', '�',
                               '�', '�', '�', '�', '�', '�', '�');
  Win: Array[0..66] of Char = ('�', '�', '_', '�', '�', '�', '�', '�', '�', '�',
                               '�', '�', '�', '�', '�', '�', '�', '�', '�', '�',
                               '�', '�', '�', '�', '�', '�', '�', '�', '�', '�',
                               '�', '�', '�', '�', '�', '�', '�', '�', '�', '�',
                               '�', '�', '�', '�', '�', '�', '�', '�', '�', '�',
                               '�', '�', '�', '�', '�', '�', '�', '�', '�', '�',
                               '�', '�', '�', '�', '�', '�', '�');
... ... ...

function WinToKoi(Str: String): String;
var
  i, j, Index: Integer;
begin
  Result := '';
  for i := 1 to Length(Str) do
  begin
    Index := -1;
    for j := Low(Win) to High(Win) do
      if Win[j] = Str[i] then
      begin
        Index := j;
        Break;
      end;

    if Index = -1 then Result := Result + Str[i]
                  else Result := Result + Koi[Index];
  end;
end;

function KoiToWin(Str: String): String;
var
  i, j, Index: Integer;
begin
  Result := '';
  for i := 1 to Length(Str) do
  begin
    Index := -1;
    for j := Low(Win) to High(Win) do
      if Koi[j] = Str[i] then
      begin
        Index := j;
        Break;
      end;

    if Index = -1 then Result := Result + Str[i]
                  else Result := Result + Win[Index];
  end;
end;