function RSCE_UpText(c: TIntArray): string;
var
  tmp: TStrArray;
  h, i: Integer;
begin
  TIAUnique(c);
  h := High(c);
  if (h > -1) then
  begin
    for i := h downto 0 do
      if not InRange(c[i], 0, 16777215) then
        Delete(c, i, 1);
    h := High(c);
    if (h > -1) then
    begin
      SetLength(tmp, (h + 1));
      for i := 0 to h do
        tmp[i] := Trim(MSSL_GetTextAt(6, 5, 0, MSSL_MM.st[RSCE_MMS].font[RSCE_MainFont].obj, c[i], 75, True, tr_AllChars));
      Result := Trim(Implode(' ', tmp));
      SetLength(tmp, 0);
    end else
      Result := Trim(MSSL_GetTextAt(6, 5, 0, MSSL_MM.st[RSCE_MMS].font[RSCE_MainFont].obj, -1, 75, True, tr_AllChars));
  end else
    Result := Trim(MSSL_GetTextAt(6, 5, 0, MSSL_MM.st[RSCE_MMS].font[RSCE_MainFont].obj, -1, 75, True, tr_AllChars));
end;