--- a/hedgewars/uFLUtils.pas	Thu Oct 02 00:48:14 2014 +0400
+++ b/hedgewars/uFLUtils.pas	Mon Oct 13 23:46:49 2014 +0400
@@ -3,6 +3,7 @@
 
 function str2PChar(const s: shortstring): PChar;
 function intToStr(n: LongInt): shortstring;
+function midStr(s: shortstring; pos: byte): shortstring;
 
 implementation
 
@@ -25,4 +26,9 @@
     str(n, intToStr)
 end;
 
+function midStr(s: shortstring; pos: byte): shortstring;
+begin
+    midStr:= copy(s, pos, length(s) - pos + 1)
+end;
+
 end.