如何实现源文件覆盖现有的文件？请看内容

下面的语句可以实现复制文件夹内的所有内容，但产生的都是“复制＊＊＊”类的文件，并没有将源文件覆盖，我想用源文件覆盖现有的文件，语句应该怎么写？谢谢您的帮助！！
///////////////
可以用shellapi
uses shellapiprocedure TForm1.Button2Click(Sender: TObject);
var
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: Array [0..128] of Char;
Begin
  FillChar( frombuf, Sizeof(frombuf), 0 );
  FillChar( tobuf, Sizeof(tobuf), 0 );
  StrPCopy( frombuf, 'd:\brief\*.*' );
  StrPCopy( tobuf, 'd:\temp\brief' );
  With OpStruc DO Begin
    Wnd:= Handle;
    wFunc:= FO_COPY;
    pFrom:= @frombuf;
    pTo:=@tobuf;
    fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
    fAnyOperationsAborted:= False;
    hNameMappings:= Nil;
    lpszProgressTitle:= Nil;  end;
  ShFileOperation( OpStruc );
end;