Dein FindFiles sucht die Dateien und fügt diese der Liste aResult hinzu. Natürlich musst du dann als Parameter der Funktion auch eine Liste vom Typ TStrings übergeben damit du auf die Ergebnisse zugreifen kannst:
Delphi-Quellcode:
var
Files: TStrings;
iFile: Integer;
Itm: TMenuItem;
begin
Files := TStringList.Create; //erstellen der List, TStringList verwenden weil TStrings eine abstrakte Klasse ist
try
FindFiles(Pfad, True, Files);
//Die gefundenen Dateien sind jetzt in Files gespeichert, diese Liste kannst du jetzt in einer For-Schleife durchgehen und für jede Datei ein TMenuItem erstellen
for iFile := 0 to Files.Count -1 do
begin
Itm := TMenuItem.Create;
Itm.Caption := Files[iFile];
MainMenu1.Items.Add(Itm); //hier bin ich mir nicht sicher, verwende das normale MainMenu nie, schau mal in die Hilfe...
end;
finally
Files.Free; //Speicher freigeben
end;
end;