Galkov, от Delphi-4, но уж очень длинный список неиспользуемых переменных, вдруг при длительной эксплуатации что-либо затерялось, а здесь новенький, с иголочки (храню в трёх местах на всякий случай)