Directoryexists/delete

[Frage95]

Delphi-Quellcode:

function TInstallationsTool.AllDirectoryExists(const Directory: string): Boolean;
var
   DirArray : Array of string;
   i : integer;
begin
   setlength(dirArray,6);
   DirArray[0] := '\\D:\Watchdog';
   DirArray[1] := '\\D:\WellnessDienst';
   DirArray[2] := '\\D:\MySQL';
   DirArray[3] := '\\D:\Guthabendienst';
   DirArray[4] := '\\D:\Studioservereinrichten';
   DirArray[5] := '\\C:\McFit';
   DirArray[6] := '\\C:\Firewall';

   for I := DirArray[0] to DirArray[6] do
   if DirectoryExists then begin
      DeleteFile();
      Showmessage('Directory existiert');
   end else begin
      Showmessage('directory existiert nicht');
   end;
      SetLength(dirArray,0);
end;

Hey ich habe ein Tool geschrieben, dass per knopfdruck alle nötigen Daten kopiert. Nun möchte ich diese erweitern und zwar
wenn er die Daten kopiert soll er vorher prüfen ob das Verzeichnis bereits existiert wenn ja soll er er löschen und dann das neue draufkopieren.
Funktioniert nicht so wirklich.....