Für eine Fehlermeldung musst du selbst sorgen:
Delphi-Quellcode:
von, nach: string;
begin
von := LBmusiktitel.Items[0];
nach := 'C:\Users\Florian\Desktop\testen\';
if not Copyfile(PChar(von),PChar(nach), true) then
begin
raise EWin32Error.Create(SysErrorMessage(GetLastError)+#13#10+von+' --> '+nach);
end;