title: Disable mouse click till procedure is done
body: <p>Currently I have blocks (3d cubes) , when you click on one , it will create another block on top of it. like so</p>
  
  <pre><code>procedure TForm2.cubeClick(sender: TObject);
  var
    cube: Tcube;
  begin
  cube := Sender as Tcube;
  if setblocks then
    begin
      totalblocks := totalblocks +1 ;
      CreateCube[totalblocks]:=tcube.Create(self);
      CreateCube[totalblocks].Visible := true;
      CreateCube[totalblocks].Name := 'cubename'+inttostr(totalblocks);
      CreateCube[totalblocks].Position.x := cube.Position.X;
      CreateCube[totalblocks].Position.Y := cube.Position.y;
      CreateCube[totalblocks].Position.Z := cube.Position.Z -1;
      CreateCube[totalblocks].Material.Texture.CreateFromFile(gamedir+'\pics\'+blocktype);
      CubeData[totalblocks] := blocktype;
      CreateCube[totalblocks].Material.Lighting := false;
      CreateCube[totalblocks].Material.Modulation := TTextureMode.tmReplace;
      CreateCube[totalblocks].Parent := viewport3d1;
      CreateCube[totalblocks].OnClick := cubeClick;
      CreateCube[totalblocks].OnMouseDown := mousedown;
    end;
     label2.Text := inttostr(10000 - totalblocks);
  end;
  </code></pre>
  
  <p>Issue i am having is if i click fast enough, it stops adding block, unsure why.  but I think if i could disable the mouse click till this whole procedure is done, then it would take care of it. Is this something you can do in firemonkey, anyone know how?</p>
  
  <p>Thanks
  Glen</p>