--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/hedgewars/uFLData.pas	Tue Sep 30 00:54:04 2014 +0400
@@ -0,0 +1,20 @@
+unit uFLData;
+interface
+
+function getThemesList: PPChar; cdecl;
+procedure freeThemesList(list: PPChar); cdecl;
+
+implementation
+uses uPhysFSLayer;
+
+function getThemesList: PPChar; cdecl;
+begin
+    getThemesList:= pfsEnumerateFiles('Themes')
+end;
+
+procedure freeThemesList(list: PPChar); cdecl;
+begin
+    pfsFreeList(list)
+end;
+
+end.