Компонент RUSCOD

var
sl:TStringList;
//...
sl.SaveToFile('имя файла', TEncoding.GetEncoding(866)); //сохранит в DOS
//...

const
Win: array [0..65] of string =
('А', 'Б', 'В', 'Г', 'Д', 'Е',
 'Ё', 'Ж', 'З', 'И', 'Й', 'К',
 'Л', 'М', 'Н', 'О', 'П', 'Р',
 'С', 'Т', 'У', 'Ф', 'Х', 'Ц',
 'Ч', 'Ш', 'Щ', 'Ъ', 'Ы', 'Ь',
 'Э', 'Ю', 'Я', 'а', 'б', 'в' ,
 'г', 'д', 'е', 'ё', 'ж', 'з',
 'и', 'й', 'к', 'л', 'м', 'н',
 'о', 'п', 'р', 'с', 'т', 'у',
 'ф', 'х', 'ц', 'ч', 'ш', 'щ',
 'ъ', 'ы', 'ь', 'э', 'ю', 'я');
 
Dos: array [0..65] of string =
('Ђ', 'Ѓ', '‚', 'ѓ', '„', '…',
 'р', '†', '‡', '€', '‰', 'Љ',
 '‹', 'Њ', 'Ќ', 'Ћ', 'Џ', 'ђ',
 '‘', '’', '“', '”', '•', '–',
 '—', '˜', '™', 'љ', '›', 'њ',
 'ќ', 'ћ', 'џ', '*', 'Ў', 'ў' ,
 'Ј', '¤', 'Ґ', 'с', '¦', '§',
 'Ё', '©', 'Є', '«', '¬', '*',
 '®', 'Ї', 'а', 'б', 'в', 'г',
 'д', 'е', 'ж', 'з', 'и', 'й',
 'к', 'л', 'м', 'н', 'о', 'п');
 
function TForm1.DosToWin(str: string): string;
var
 count,x,y,Index: Integer;
begin
 Result := '';
 count := length(Str);
 for x:=1 to count do
 begin
  index := - 1;
  for y := Low(Dos) to High(Dos) do
  if Dos[y] = Str[x] then
  begin
   Index := y;
   Break;
  end;
  if Index = - 1 then Result := Result + Str[x]
  else Result := Result + Win[Index];
 end;
end;
 
function TForm1.WinToDos(str: string): string;
var
 count,x,y,Index: Integer;
begin
 Result := '';
 count := length(Str);
 for x := 1 to count do
 begin
  index :=- 1;
  for y := Low(Win) to High(Win) do
  if Win[y] = Str[x] then
  begin
   Index := y;
   Break;
  end;
  if Index = - 1 then Result := Result + Str[x]
  else Result := Result + Dos[Index];
 end;
end;

“зҐв*лҐ §*ЇЁбЁ Ї®«м§®ў*⥫Ґ© ¤«п \\MICROSOFT
 
-------------------------------------------------------------------------------
Ђ¤¬Ё*Ёбва*в®а            Ђ«ҐЄбҐ©                  ѓ®бвм                    
Љ®¬**¤* ўлЇ®«*Ґ** гбЇҐи*®.

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
 mmo1.Text := DosToWin(Socket.ReceiveText);
end;