Shell execute

[DomPerle]

Jetzt hast Du mich kalt erwischt:
Meine Delphi-Kenntnisse reichen nicht aus,um Deinen Vorschlag korrekt einbauen zu können.
Hier nochmal der jetzige Stand und die Fehlermeldung:

procedure TForm3.Button3Click(Sender: TObject);
const cZiel = 'c:\hdh';
var
prog : String;
Ziel : String;

begin
Prog := IncludeTrailingPathDelimiter(cZiel) + Copy(Form1.Programm,1,4);
Ziel := IncludeTrailingPathDelimiter(cZiel) + 'Transfer\';
ShellExecute(0, nil, 'cmd.exe', Format('/k copy "%s" "%s"', Prog, Ziel), nil, SW_SHOW);

MyShowMessage('Programmpaket im Verzeichnis ''C:\hdh\Transfer'' gespeichert', 12);
End;
Fehlermeldung:
[Fehler] Konvert_Unit3.pas(116): Undefinierter Bezeichner: 'IncludeTrailingPathDelimiter'