\documentclass{article}
\usepackage{fixltx2e}
\usepackage[expert,vargreek,altbullet]{lucidabr}
\usepackage{ntheorem}

\usepackage[T1]{fontenc}
\usepackage{textcomp}
\DeclareEncodingSubset{TS1}{hlh}{1}

\theoremheaderfont{\normalfont\scshape}
\theoremnumbering{arabic}
\theoremstyle{plain}                           
\theorembodyfont{\normalfont\itshape}
\newtheorem{teor}{Theorem}

\makeatletter
\def\caption{\refstepcounter\@captype\@dblarg{\@caption\@captype}}     %+
\long\def\@caption#1[#2]#3{%
  \par                                     
  \begingroup
    \@parboxrestore
    \if@minipage
      \@setminipage
    \fi
    \normalsize
    \@makecaption{{\small\textsc{\csname fnum@#1\endcsname}}}%
     {\ignorespaces{\small #3}}\par
    \endgroup}
\long\def\@makecaption#1#2{%                                          %++
  \vskip\abovecaptionskip
  \newdimen\@captionwidth\newdimen\@captionmargin
  \advance\@captionmargin by 2\parindent 
  \advance\@captionwidth by \hsize
  \advance\@captionwidth by -2\@captionmargin
  \sbox\@tempboxa{#1: #2}%     
  \newbox\@tempboxb\sbox\@tempboxb{#2}% 
  \ifdim \wd\@tempboxa >\@captionwidth     
   \mbox{}\hskip\@captionmargin\begin{minipage}{\@captionwidth}
    #1: #2                 
   \end{minipage}
  \else
    \global\@minipagefalse
    \ifdim \wd\@tempboxb = 0pt\hb@xt@\hsize{\hfil#1\hfil}%            
    \else  
    \hb@xt@\hsize{\hfil\box\@tempboxa\hfil}%
    \fi  
  \fi
  \vskip\belowcaptionskip}
\makeatother

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{document}
\begin{center}
\large
Hello, this is an example.
\end{center}

\begin{teor}
A first Theorem.
\end{teor}

\begin{teor}
A second Theorem.
\end{teor}

\begin{teor}
A third Theorem.
\end{teor}

\begin{teor}
A fourth Theorem.
\end{teor}

\begin{teor}
One more Theorem.
\end{teor}

\begin{figure}[h]
\centerline{\fbox{A figure here !!!}}
\caption{This is the first figure.}
\end{figure}

\begin{center}
\large
Finally these are old-style numbers in text \oldstylenums{0123456789}, \\
math $\oldstylenums{0123456789}$, \\
\textbf{bold \oldstylenums{0123456789}}, \\
\textit{italic \oldstylenums{0123456789}}, \\
\textit{\textbf{and bold italic \oldstylenums{0123456789}}}.
\end{center}

\end{document}
