[Dead_Gigabit]

пытаюсь изменить расширение файлов в каталоге

Код:

procedure TMain.Button4Click(Sender: TObject);
begin
  ShellExecute ( 0, 'open', PChar('cmd.exe', '/k ren '+pach.Text+'\*.vrd *.txt'), nil, SW_HIDE) ;
end;

вылетает ошибка: expected but ',' found

ругается на запятую PChar('cmd.exe', '/k ren

Посмотрите свежим взглядом где накосячил???