function TextfileSize(const name: string):
 LongInt;  var   SRec: TSearchRec; 
begin   
if FindFirst(name, faAnyfile, SRec) = 0 then   
begin    
Result := SRec.Size;     Sysutils.FindClose(SRec);   
end   
else     Result := 0; 
end;