Курсовая работа: Delphi. Немного относительно методов упаковки данных

'a','A' : PakFile;

'm','M' : begin

DeleteFile:=True;

PakFile;

end;

'e','E' : UnPakFile;

else ;

end;

end;

CloseArchiv;

end.