AdvSmoothMessageDialog1.Buttons.Clear; 
AdvSmoothMessageDialog1.Position := poScreenCenter; 
with AdvSmoothMessageDialog1.Buttons.Add do 
begin 
  ButtonResult := mrOk; 
  Caption := 'Ok'; 
end; 
with AdvSmoothMessageDialog1.Buttons.Add do 
begin 
  ButtonResult := mrCancel; 
  Caption := 'Cancel'; 
end;
 
if AdvSmoothMessageDialog1.Execute then 
  Label1.Caption := 'Ok Button clicked';