Function Tedit_int.Datetostr(Date:string):string;
var month,day,year:string;
begin
day:=copy(date,9,2);
month:=copy(date,6,2);
year:=copy(date,3,2);
if (year>'1300') or (year<'1499') then
begin
case strtoint(month) of
1:month:='فروردين';
2:month:='ارديبهشت'...