{
Convert russian string from cp1251 to cp866...
}
function Win2Dos(s:String):String;
begin
 Win2Dos:=StrConv('win2dos',s);
end;
{
Convert russian string from cp866 to cp1251...
}
function Dos2Win(s:String):String;
begin
 Dos2Win:=StrConv('dos2win',s);
end;
