[delphi.com.ar]

Ante todo, quiero decirte que la solución de Marcos, es adecuada par lo que quieres hacer.


Una cuestión de sintaxis:
Particularmente no creo que MODE sea un comando de DOS, para mi comandos son aquellas intrucciones que maneja el interprete de comandos (COMMAND.COM), por ejemplo: dir, del, ren, ver, time, date.....

Si hablamos de comandos:

Aqui tienes un hilo anterior con un ejemplo:
http://www.clubdelphi.com/foros/show...=&threadid=483

Este es el procedure que uso para estos casos:

procedure DosExec( ACommand : String; ACmdShow : Cardinal = SW_SHOW );
begin
  if WinExec( PChar(Environ('COMSPEC') + ' /C ' + ACommand), ACmdShow ) <= 31 Then
    {$IFDEF VER130}
    RaiseLastWin32Error;
    {$ELSE}
    RaiseLastOSError; 
    {$ENDIF}
end;

Saludos!