با سلام خدمت دوستان
این مسئله به روش زیر حل شد. البته از تاپیکهای همین سایت استفاده شد.
//با این تابع هر دو اعداد فارسی و عربی رو می تونی به اعداد انگلیسی تبدیل کنی
Function N2N(InStr:string):string;
var i:Integer;
OutStr:string;
begin
for i := 1 to StrLen(Pchar(Trim(InStr))) do
OutStr := OutStr + IntToStr(Ord(InStr[i]) Mod 48);
Result := OutStr;
end;
procedure TfrmFahrestBahaGheta.qryFhrestBahaShowShomarFanniG etText(
Sender: TField; var Text: string; DisplayText: Boolean);
begin
Text:='';
if qryFhrestBaha.IsEmpty then exit;
Text:=#253+N2N(Copy(qryFhrestBahaShomarFanni.AsStr ing,1,5))+'-'+
Copy(qryFhrestBahaShomarFanni.AsString,7,5);
end;