1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function CopyFileEx(const ASource, ADest: String; ARenameCheck: boolean = false): boolean;
var sh: TSHFileOpStruct;             // die Funktion kapselt den Win-API-Aufruf der
begin                                // Funktion ShFileOperation;  uses ShellApi;
  sh.Wnd := Application.Handle;
  sh.wFunc := FO_COPY;
  sh.pFrom := PChar(ASource + #0);   // String muss mit #0#0 Terminiert
  sh.pTo := PChar(ADest + #0);       // werden, um das Listenende zu setzen
  sh.fFlags := //fof_Silent or
                 fof_MultiDestFiles;
  if ARenameCheck then sh.fFlags := sh.fFlags or fof_RenameOnCollision;
  Result := ShFileOperation(sh) = 0;
end;

CopyFileEx(label30.Caption + 'buch*.dbf', label38.Caption);