procedure TForm1.FileStorageExtract(Sender: TObject;
   FileName: String; FileSize: Integer; 
   var AllowExtracting: Boolean);
begin
  if UpperCase(ExtractFileExt(FileName)) = '.TXT' then
    AllowExtracting := False;
end;