Две ошибки

[Arigato]

НЕЛЬЗЯ использовать имена переменых, которые совпадают со свойствами компонентов

Ну это вы сильно загнули. Для каждой переменной определяется область видимости. В данном случае Active была глобальная переменная, и, по идеи, в процедуре она должна быть видна. Но в процедуре имеется так же переменная с большим приоритетом, с областью видимости для всех методов данного класса. Во к ней и происходит обращение, т.е. к свойству Active класса TForm1.