--- a/hedgewars/uCaptions.pas	Sat Feb 08 16:29:34 2014 +0400
+++ b/hedgewars/uCaptions.pas	Sun Feb 09 00:44:29 2014 +0400
@@ -23,7 +23,7 @@
 interface
 uses uTypes;
 
-procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup);
+procedure AddCaption(s: ansistring; Color: Longword; Group: TCapGroup);
 procedure DrawCaptions;
 procedure ReloadCaptions(unload: boolean);
 
@@ -36,13 +36,13 @@
 type TCaptionStr = record
     Tex: PTexture;
     EndTime: LongWord;
-    Text: shortstring;
+    Text: ansistring;
     Color: Longword
     end;
 var
     Captions: array[TCapGroup] of TCaptionStr;
 
-procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup);
+procedure AddCaption(s: ansistring; Color: Longword; Group: TCapGroup);
 begin
     if cOnlyStats then exit;
     if Length(s) = 0 then
@@ -74,7 +74,7 @@
 for Group:= Low(TCapGroup) to High(TCapGroup) do
     if unload then
         FreeTexture(Captions[Group].Tex)
-    else if Captions[Group].Text <> '' then
+    else if length(Captions[Group].Text) > 0 then
         Captions[Group].Tex:= RenderStringTex(Captions[Group].Text, Captions[Group].Color, fntBig)
 end;
 
@@ -99,7 +99,7 @@
                     begin
                     FreeTexture(Tex);
                     Tex:= nil;
-                    Text:= '';
+                    Text:= ansistring('');
                     EndTime:= 0
                     end;
                 end;