Kopieren mehrerer Verzeichnisse mit SHFileOperation

[BeBored]

Hallo Delphi-Praxis Mitglieder ich treibe mich hier schon eine ganze weile im Forum herum und habe nun ein Problem bei dem ich irgendwie nicht auf die Lösung komme.

Ich bin ziemlicher Delphi-Neuling also nichts großartiges erwarten...

Mein Problem:

Ich schreibe ein Backup Programm (sehr einfach gehalten für einen älteren Herren) bei dem ich mehrere Verzeichnisse in ein Verzeichniss kopieren will. Kein Kompression oder ähnliches nötig.
Ich benutze eine Funktion die ich im Internet gefunden habe

Delphi-Quellcode:

function CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;

Ich rufe die Funktion so auf:

Delphi-Quellcode:

  if CopyDir(Quelle, Ziel + '\') = True then
  MessageDlg('Daten gesichert!', mtInformation, [mbOK], 0);

Quelle und Ziel sind String Variablen.
Geht aber nur mit einem Verzeichniss und so nützt mir das nicht viel.
Ich habe das Programm so weit das man Verzeichniss auswählen kann, diese in einer Stringlist gespeichert werden und in
einer Datei.

Wie kann ich die einzelnen Verzeichnisse die in der StrinList stehen in einen einzelnen Ordner sichern?
Ist vielleicht garnicht mal so schwer, aber ich komme nicht drauf

Danke schonmal im vorraus

Matthias