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:='ارديبهشت'...