procedure TForm1.Button2Click(Sender: TObject);
begin
  EasyMap1.Layers.Add('E:\maps\World_LL.MIF');
end;
  
procedure TForm1.EasyMap1AddLayer(Sender: TEasyMap; Layer: TMapLayer);
begin
 ListBox1.Items.AddObject(Layer.Name, Layer);
end;