команды DOS

Как из проги на BP выполнить команду типа DIR или CD? Если написать exec('dir', ''), то ошибка - файл не найден (что, в общем-то, естественно )

{Getenv.PAS}
{Sample code for the GetEnv function.}
{$M 8192,0,0}
uses Dos;
var Command: string[79];
begin
Write('Enter DOS command: ');
Readln(Command);
if Command <> '' then
Command := '/C ' + Command;
SwapVectors;
Exec(GetEnv('COMSPEC'), Command);
SwapVectors;
if DosError <> 0 then
Writeln('Could not execute COMMAND.COM');
end.

А можно было просто F1 нажать