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

[alextus_imported]

я такую функцию писал,
а вообще если длина строки мала можно же после выгрузки внешней утилитой пользоваться с помощью SHELL типа doswin.exe filename866.txt filename1251.txt

DosToWin(dosString : Text[250]) winString : Text[250]
win[128]:=192;//A
win[129]:=193;//
win[130]:=194;//
win[131]:=195;//
win[132]:=196;//
win[133]:=197;//
win[134]:=198;//
win[135]:=199;//
win[136]:=200;//
win[137]:=201;//
win[138]:=202;//
win[139]:=203;//
win[140]:=204;//
win[141]:=205;//
win[142]:=206;//
win[143]:=207;//
win[144]:=208;//
win[145]:=209;//
win[146]:=210;//
win[147]:=211;//
win[148]:=212;//
win[149]:=213;//
win[150]:=214;//
win[151]:=215;//
win[152]:=216;//
win[153]:=217;//
win[154]:=218;//
win[155]:=219;//
win[156]:=220;//
win[157]:=221;//
win[158]:=222;//
win[159]:=223;//Я
win[160]:=224;//а
win[161]:=225;//
win[162]:=226;//
win[163]:=227;//
win[164]:=228;//
win[165]:=229;//
win[166]:=230;//
win[167]:=231;//
win[168]:=232;//
win[169]:=233;//
win[170]:=234;//
win[171]:=235;//
win[172]:=236;//
win[173]:=237;//
win[174]:=238;//
win[175]:=239;//
win[224]:=240;//
win[225]:=241;//
win[226]:=242;//
win[227]:=243;//
win[228]:=244;//
win[229]:=245;//
win[230]:=246;//
win[231]:=247;//
win[232]:=248;//
win[233]:=249;//
win[234]:=250;//
win[235]:=251;//
win[236]:=252;//
win[237]:=253;//
win[238]:=254;//
win[239]:=255;//я
win[240]:=168;//Ё
win[241]:=184;//ё

FOR i :=1 TO STRLEN(dosString)DO
BEGIN
ch:=dosString[i];
IF ch < 128 THEN
winString[i] := ch
ELSE BEGIN
winString[i] := win[ch];
END;
END;