Форум АНТИЧАТ - Показать сообщение отдельно

Помогите корректно выводить имя файла в консоль на русском языке...

Цитата:

SetConsoleCP(866);
SetConsoleOutputCP(866);

не помогает...

UPDATE

Решение проблемы:

ввод нового строкового параметра namefile

и следущий код

Код:

namefile:= string(temp1.cFileName);
for i:=1 to Length(namefile) do
case namefile[i] of
'А'..'п': namefile[i]:=chr(Ord(namefile[i])-64);
'р'..'я': namefile[i]:=chr(Ord(namefile[i])-16);
end;