sobreescribir directorio

[Leonardo]

que tal estoy tratando de encontrar la forma de poder copiar una carpeta, pero si esta ya existe quiero que me sobreescriba el contenido, dentro de los foros encontre una liga con el siguiente codigo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
 
  function CopiaTodo(Origen,Destino : String) :
  LongInt;
  var 
 F : TShFileOpStruct;
 sOrigen, sDestino : String;
  begin 
 Result := 0;
 sOrigen := Origen + #0;
 sDestino := Destino + #0;
 
 with F do 
 begin 
   Wnd   := Application.Handle;
   wFunc := FO_COPY;
   pFrom := @sOrigen[1];
   pTo   := @sDestino[1];
   fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION
 end; 
 
 Result := ShFileOperation(F);
end; 
 
begin 
  CopiaTodo('c:\Delphi3\*.*','c:\kk');
end;

este procedimiento funciona bien, solo que si el directorio ya existe me creo otro con el mismo nombre y los va anidando.

como puedo hacer para que me sobreescriba el directorio.