Set the Delegate

procedure TForm.FormCreate(Sender: TObject);

begin

SSlider1.Delegate:=SNumber1;

SNumber1.Delegate:=SSlider1;

end;