42 var

    42 var

    43     Captions: array[TCapGroup] of TCaptionStr;

    43     Captions: array[TCapGroup] of TCaptionStr;

    44 

    44 

    45 procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup);

    45 procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup);

    46 begin

    46 begin

    47     if Captions[Group].Text <> s then

    48     if Captions[Group].Text <> s then

    48         begin

    49         begin

    49         FreeTexture(Captions[Group].Tex);

    50         FreeTexture(Captions[Group].Tex);

    50         Captions[Group].Tex:= nil

    51         Captions[Group].Tex:= nil

    51         end;

    52         end;