функция SetConsoleCP(Pascal)

[adrenalin142]

Здравствуйте, форумчане.
Так вот такой есть вопрос, были ли у кого проблемы с SetConsoleCP? У меня проблема в том что эту функцию программа не хочет читать, побывал переустановить программу - не помогло.
ЗЫ:Работаю в Delphi 7

Вот, к примеру простенький текст:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s:string;
begin
  SetConsoleCP(1251);
  SetConsoleOutPut(1251);
  write('s=');
  Readln(s);
  write(s);
  Readln;
end.

Но компилятор определяет SetConsoleCP, как переменную и говорит, что неизвестная переменная.

Вот скрин:

[Stilet]

побывал переустановить программу - не помогло.

Да действительно не помогло )
Что же случилось?
А винду переустанавливать не пробовал?
Говорят в новых сервиспаках уже есть.
И даже модуль windows в uses подключить можно )

[abit]

 uses
̶ ̶ ̶S̶y̶s̶U̶t̶i̶l̶s̶ Windows;
...
̶S̶e̶t̶C̶o̶n̶s̶o̶l̶e̶O̶u̶t̶P̶u̶t̶ SetConsoleOutPutCP(1251);

[adrenalin142]

опа, точно,ошибочка вышла)
Что сказать? Я Тупак) Спасибо)