procedure TForm1.Button1Click(Sender: TObject);
var
  Params: PCopyEx;
  ThreadID: Cardinal;
  FileList : TStringList;
  wf : DWORD
  hThread : THandle;
begin
  cancelCopy := False;
  FileList := TStringList.Create;
  New(Params);
  for i := 0 to FileList.count - 1 do
  begin
    Params.Source := 'H:\Videos ungebrannt\' + FileList.Strings[i];
    Params.Dest := 'J:\' + Filelist.Strings[i];
    Params.Handle := Handle;
    hThread := BeginThread(nil, 0, @CopyExThread, Params, 0, ThreadID);
    if hThread <> INVALID_HANDLE_VALUE then
    begin
      wf := WaitForSingleObject(hThread, 5000);
      case wf of
        WAIT_OBJECT_0: ShowMessage('Datei wurde kopiert');
        WAIT_TIMEOUT: ShowMessage('TimeOut');
        WAIT_FAILED: ShowMessage('Fehler');
      end;
      CloseHandle(hThread);
    end;
  end;
end;