[Stevenmn]

^^ Los dos codes sirven, gracias, aunque aquí pongo este otro que era el que estaba utilizando que sirve también.

ShellExecute(form1.Handle, 'open', PChar('cmd.exe'),
Pchar('/K ' + edit1.Text + ' >> c:\LOG.TXT'), Pchar('C:\'), SW_SHOW)