Разворачивающиеся меню

[Mad_Lord]

Здравствуйте! Я хотел сделать разворачивающиеся и сворачивающиеся меню при помощи таймера, однако возникли некоторые трудности с написанием кода. Вот что у меня получилось :

procedure TForm1.Menu_ActiveClick(Sender: TObject);
Var active:boolean;
begin
timer2.Enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
Var active :boolean;
    TimePoints:integer;
begin
//если активация требуется то развернуть меню
If active=true then Begin
                    TimePoints:=TimePoints+15;
                    If TimePoints=600 then Begin
                                           //если меню развернуто полностью, то остановить таймер и сменить активность
                                           timer2.Enabled:=false;
                                           active:=false;
                                           End;
                    If TimePoints<301 then begin //подвинуть 1 кнопку
                                           top5       .Left    :=top5        .Left     +15;
                                           top5_active.Left    :=top5_active.Left      +15;
                                           End;
                    //подвинуть 2 кнопку
                    exit          .left :=exit        .left  +15;
                    exit_active   .left :=exit_active .left  +15;
                    End;
//если меню уже развернуто и требуется свернуть
If active=false then Begin
                     TimePoints:=TimePoints-15;
                     If TimePoints=0 then Begin //если меню свернуто полностью...
                                          timer2.Enabled:=false;
                                          active:=true;
                                          End;
                     If TimePoints>0 then begin //свернуть 1 кнопку
                                          top5       .Left    :=top5        .Left      -15;
                                          top5_active.Left    :=top5_active .Left      -15;
                                          End;

                     // свернуть 2 кнопку
                     exit          .left :=exit        .left      -15;
                     exit_active   .left :=exit_active .left      -15;
                     End;

end;

Пожалуйста, помогите найти ошибку, Я вам буду весьма признателен за это.

[kutani]

...переменная active всегда будет в false, она инициализируется локально в процедуре таймера. Сделайте ее глобально.