Applies toTmsg_box1
Declarationprocedure FlatButton4Click(Sender: TObject);Implementation
procedure Tmsg_box1.FlatButton4Click(Sender: TObject); begin try Tag:=StrToInt(TButton(Sender).Hint); Close; except end;End;