{
Convert russian string from cp1251 to koi8r...
}
function Win2Koi(s:String):String;
begin
 Win2Koi:=StrConv('win2koi',s);
end;
{
Convert russian string from koi8r to cp1251...
}
function Koi2Win(s:String):String;
begin
 Koi2Win:=StrConv('koi2win',s);
end;
