diff --git a/Units/MMLCore/files.pas b/Units/MMLCore/files.pas
index dfcc473..18d2aaf 100644
--- a/Units/MMLCore/files.pas
+++ b/Units/MMLCore/files.pas
@@ -128,6 +128,7 @@ begin;
           exit;
         end;
   end;
+  result := '';
 end;
 
 constructor TMFiles.Create(Owner : TObject);