Ich erhalte bei der Funktion den Dateinamen einschließlich der Dateierweiterung (sofern du das fehlende Semikolon nach
Result := F.Name
ergänzt
).
Daher vermute ich, dass der Fehler wo anders liegt.
Vielleicht ein versehentlicher Aufruf wie
ExtractFileName(GetNewestFile(...))
. Sowas hatte ich mal und den Fehler in der Funktion gesucht, die jedoch tadellos funktionierte.