кодировка (cp866 to UTF-8)

[)Игнат(]

Здравствуйте форумчане.
Простите за глупый вопрос, но тем не менее.
Задачка такова:
Есть текстовый файлик.
Его кодировка DOS кирилица (cp866)
Его нужно перевести в win1251 кодировку и дальше с ним работать в Делфи.
Есть ли готовые функции-конвертеры для этой задачи? яндекс курил, не нашел работающего(или не то искал) .
И еще скромный вопросик:
Функция UTF8ToAnsi(string) возвращает Unicode - строке кодировку windows1251 ?

[Serge_Bliznykov]

на Delphi? из одной (сз866) кодировки в другую (win-1251)?
Да за милую душу.
вот, и туда, и обратно:

unit Utils;

interface
uses Windows;

function StrOemToAnsi(const S: AnsiString): AnsiString;
function StrAnsiToOem(const S: AnsiString): AnsiString;

implementation

{$IFDEF WIN32}
function StrOemToAnsi(const S: AnsiString): AnsiString;
begin
  if Length(S) = 0 then Result := ''
  else
    begin
      SetLength(Result, Length(S));
      OemToAnsiBuff(@S[1], @Result[1], Length(S));
    end;
end;
{$ENDIF WIN32}

//--------------------------------------------------------------------------------------------------

{$IFDEF WIN32}
function StrAnsiToOem(const S: AnsiString): AnsiString;
begin
  if Length(S) = 0 then Result := ''
  else
    begin
      SetLength(Result, Length(S));
      AnsiToOemBuff(@S[1], @Result[1], Length(S));
    end;
end;
{$ENDIF WIN32}

end.