--- a/hedgewars/uLocale.pas	Fri Feb 07 00:47:51 2014 +0400
+++ b/hedgewars/uLocale.pas	Thu Feb 06 22:03:53 2014 +0100
@@ -25,7 +25,6 @@
 const MAX_EVENT_STRINGS = 100;
 
 procedure LoadLocale(FileName: shortstring);
-function  FormatPChar(fmt: PChar; arg: PChar): PChar;
 function  Format(fmt: shortstring; var arg: shortstring): shortstring;
 function  FormatA(fmt: PChar; arg: ansistring): ansistring;
 function  GetEventString(e: TEventId): PChar;
@@ -110,14 +109,6 @@
         GetEventString:= trevt[e][GetRandom(trevt_n[e])]; // Pick a random message and return it
 end;
 
-function FormatPChar(fmt: PChar; arg: PChar): PChar;
-var
-    s: shortstring;
-begin
-    s:= arg;
-    FormatPChar:= Str2PChar(FormatA(fmt, s));
-end;
-
 function Format(fmt: shortstring; var arg: shortstring): shortstring;
 var i: LongInt;
 begin