Выгрузка в кодировке Win1251

[Kirvisniemi]

Зачем? Есть кодюнит 12400

Dos2Win(DosText:Text[250]) WinText : Text[250];

Pos := 0;
WinText := '';
REPEAT
  Pos+=1;
  OneChar := DosText[Pos];
  CASE(OneChar) OF
     'А'..'п': OneChar := OneChar + 64;
     'р'..'я': OneChar := OneChar + 16;
     'Ё': OneChar := 168;
     'ё': OneChar := 184;
  END;
  WinText := WinText + FORMAT(OneChar);
UNTIL Pos = STRLEN(DosText);