EasyMap VCL
TEasyMap.EndUpdate
procedure EndUpdate(RefreshMap: Boolean = True);
Description
Enables map drawing. Use it with BeginUpdate.

procedure LoadMapObjectsFromDB(DataSet: TDataSet);

var
 symbol: TSymbol;
begin
 Map.BeginUpdate;
 try
  Map.Layers.Add.Name := 'DB_LAYER';
  Map.Layers.Last.Fieldfs.Add('City', dtString, 50);
  DataSet.First;
  while (not DataSet.Eof) do
   begin
    symbol := TSymbol(Map.Layers.Last.NewObject(TSymbol));
    symbol.Fields.FieldByName('Name').AsString := DataSet.Fields.FieldByName('Name').AsString;
    symbol.x := DataSet.FieldByName('X').AsFloat;
    symbol.x := DataSet.FieldByName('Y').AsFloat;
    symbol.Font.Name := 'MapInfo Cartographic';
    symbol.Shape := 58;
    DataSet.Next;
  end;
 finally
  Map.End Update;
 end;
end;