var 
  md: TAdvSmoothMessagedialog; 
begin 
  md := TAdvSmoothMessageDialog.Create(Self); 
  md.Caption := 'Game over !'; 
  with md.Buttons.Add do 
begin 
  Caption := 'Yes'; 
  ButtonResult := mrYes; 
end;
with md.Buttons.Add do 
begin 
  Caption := 'No'; 
  ButtonResult := mrNo; 
end; 
md.HTMLText.Text := 'Do you want to start a new game?'; 
md.HTMLText.Location := hlCenterCenter; 
md.SetComponentStyle(tsOffice2007Silver); 
md.Execute;