[SerginhoLD]

Страдалецъ, хоть убей, но у меня это не работает(последний delphi xe), по этому русские буквы я делаю так:

Код:

function Rus(const S: AnsiString): AnsiString;  // StrAnsiToOem
  begin
    SetLength(Result, Length(S));
    AnsiToOemBuff(@S[1], @Result[1], Length(S));
  end;