ShellExecute

[Kratos]

Hallo Leute,

ich bin Delphi-Neuling und habe jetzt schon etliche Forenseiten durchforstet.

Ich möchte aus meinem delphi-Programm heraus eine .bat-Datei ausführen.
In dieser lösche, kopiere und führe ich jeweils eine Textdatei aus.
Das ganze soll über cmd laufen.
Wenn ich die .bat-Datei manuell ausführe, funktioniert alles wie gewünscht.
Aus delphi heraus, passiert nichts. Es bearbeitet meine Dateien nicht und gibt auch keinen Fehler aus.
Laut Debugger durchläuft es aber meine "ShellExecute"-Programmzeile.

Code:

procedure TForm5.pnlUpdateMessageClick(Sender: TObject);
begin
  try
    ShellExecute(0, 'open', 'cmd', PChar('/c ' + (ParamStr(0) + '_DELETE_COPY_EXECUTE.bat')), nil, SW_SHOWNORMAL);
    ShowMessage('Alte Version gelöscht.');
  except
    ShowMessage('Fehler');
  end;
end;

Wo genau liegt mein Fehler?
Vielen Dank im Voraus für eure Mühen

VG Kratos