TSurfaceNearest.ButtonColor1Click
TSurfaceNearest
procedure
ButtonColor1Click(Sender: TObject);
Unit
TeeSurfaceToolEditor