\documentclass[11pt]{book}
\usepackage{geometry}
\usepackage{subfig}
\usepackage[demo]{graphicx, wrapfig}

\geometry{top=5.1cm, bottom=4.6cm, left=3.8cm, right=3.8cm}
\usepackage{xepersian}
\settextfont{XB Yagut.ttf}
%\setstretch{1.54}
\linespread{1.54}
\SepMark{-}
\makeatletter
\def\abj@num@i#1{%
	\ifcase#1\or الف\or ب\or ج\or د%
	\or ه‍\or و\or ز\or ح\or ط\fi
	\ifnum#1=\z@\abjad@zero\fi}   
\makeatother

\begin{document}
این یک آزمایش است
\begin{figure}[th]
	\subfloat[در اینجا باید (الف) باشد]{
		\includegraphics[draft]{foo}
		\label{fig1a}
	}
	\hfill
	\subfloat[در اینجا (ب) و اگر شکل سومی بود (ج) باشد]{
		\centering
		\includegraphics[draft]{foo}
		\label{fig1b}
	}
	\caption{الف به جای آ}
\end{figure}
\end{document}