se faccio come hai detto tu mi dice [Error] Fuse.pas(55): Undeclared identifier: 'ExecuteShellCommand'
ho fatto anche in questo modo ma non funziona

codice:
procedure TForm1.FondiClick(Sender: TObject); begin WinExec('Command.com /c copy/b JPG2.Text + Full2.Text fusion.jpg', 0); end;