{преобразование Ansi to Ascii}
 function AnToAs(s: String) : String;
 Var i,kod : Integer;
 begin
 Result:=s;
 for i:=1 to length(s) do
 begin
  kod:=Ord(s[i]);
  if kod=13 then Result[i]:=' ';
  if ( kod>=192) and ( kod=239) then
  Result[i]:=Chr(kod-64);
  if ( kod>=240) and ( kod=255) then
  Result[i]:=Chr(kod-16);
  if kod=168 then Result[i]:=Chr(240);
  if kod=184 then Result[i]:=Chr(241);
 end;
 end;