function TRamazan.dosyatarihi(xfilename: string): TDateTime;
 var x,x2:string;bulunan:Tsearchrec;
 begin
 x2:=extractfilepath(xfilename);
 x:=extractfilename(xfilename);
 chdir(x2);
 if findfirst(x,faanyfile,bulunan)=0 then
 Result:=FileDateToDateTime(bulunan.time)
 else
 Result:=0;
 end;