--- a/hedgewars/uCaptions.pas	Fri Feb 07 00:47:51 2014 +0400
+++ b/hedgewars/uCaptions.pas	Thu Feb 06 22:03:53 2014 +0100
@@ -23,7 +23,7 @@
 interface
 uses uTypes;
 
-procedure AddCaption(caption: PChar; Color: Longword; Group: TCapGroup);
+procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup);
 procedure DrawCaptions;
 procedure ReloadCaptions(unload: boolean);
 
@@ -42,11 +42,8 @@
 var
     Captions: array[TCapGroup] of TCaptionStr;
 
-procedure AddCaption(caption: PChar; Color: Longword; Group: TCapGroup);
-var
-    s: shortstring;
+procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup);
 begin
-    s:= caption;
     if cOnlyStats then exit;
     if Length(s) = 0 then
         exit;