Как проверить пустой ли файл в delphi?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

var FileName: string;
	  list: TStringList;	
begin
	FileName:= 'C:\Temp\1.txt';
    list:= TStringList.Create;
	list.LoadFromFile(FileName);
	if length(list.Text) = 0 then
		ShowMessage('Файл пустой') else	
		ShowMessage('Файл не пустой') ;
    list.free;
end;