roundindtype and shawdowtype

VCL TMS VCL UI Pack
1

how can i set roundindtype and shawdowtype in code.  

2
For example:

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdvSmoothLabel1.Fill.Rounding := 10;
  AdvSmoothLabel1.Fill.RoundingType := rtTop;
  AdvSmoothLabel1.Fill.ShadowOffset := 5;
  AdvSmoothLabel1.Fill.ShadowColor := clGreen;
  AdvSmoothlabel1.Fill.ShadowType := stSurround;
end;