[sorockinalex]

Извини, не понимаю что ты сказал, кроме "в начале файла пропиши. Посмотри что блокнот пишет..."
Можешь пояснить???

нашёл процедуру в нете по перекодированию
http://www.delphisources.ru/pages/faq/base/recode.html
, переделал в функцию, но как-то неправильно она работает почему-то

Код:

function ChangeEncoding(s:String):string;
var
  c: char;
  i: integer;
  chars: array [char] of char;
  StrWin, StrIso: string;
begin
  StrWin := 'АаБбВвГгДдЕеЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя';
  StrIso := 'РрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯяа?б?в?г?д?е?ж?з?и?йsк?лzм?н§о?пY';

  for c := #0 to #255 do
    Chars[c] := c;

  for i := 1 to Length(StrWin) do
    Chars[StrIso[i]] := StrWin[i];

  for i := 1 to Length(s) do
    s[i] := Chars[s[i]];

  Result := s;
end;

во-первых при копипастинге из браузера в делфи теряется часть символов исошной кодировки... заменяются на вопросы...

перекодировалось правильно, открываю Notepad++ в кодировке ISO , но латинские символы какие-то странные