property CurrentLayer: TMapLayer;
The code below allows to show the whole selected layer.
procedure TForm1.LayerControl1DblClick(Sender: TObject); begin LayerControl1.CurrentLayer.Zoom(); end;