procedure TForm1.CreatePoint(X, Y: Extended);
var
 sym: TSymbol;
begin
 sym :=  EasyMap.Layers[0].NewObject(TSymbol);
 sym.x := X;
 sym.y := Y;
 sym.shape := 45;
 sym.Draw;
end;