Обработка событий, при нажатии кнопки мыши

[citruswa]

Вопрос следующий.
При первом нажатии, обязательно должна быть нажата левая кнопка. если будет нажата правая, выдать сообщение. в дальнейшем все равно какая будет нажата кнопка. Хотя сгодится вариант, что должна быть комбинация левая-правая кнопка. при нарушении, если первой будет нажата правая, надо будет выдать сообщение.
Проблема в том, что он не хочет в условии перехватывать нажатие и перебрасывать флажок. Почему?

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var r:Word; Fl:boolean;
begin
    Fl:=True;
    r:=TrackBar1.Position;
    If Button=mbLeft then
    begin
      Fl:=False;
      Okr1.Free;
      Okr1:=Tokr1.Create (X,Y,r);
      Okr1.Draw(Form1.Image1);
    end

    else
     begin
        If (Button=mbRight) and (Fl=false) then
         begin
         Okr2.Free;
         Okr2:=Tokr2.Create (X,Y,R,Okr1);
         Okr2.Draw(Form1.Image1);
         end
        else ShowMessage('ERROR!!');
     end;
end;

[Vadik(R)]

Сделай флаг глобальной переменной

[citruswa]

Сообщение от Vadik(R)

Сделай флаг глобальной переменной

Большое спасибо. Сработало.