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;