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