Applies to
TForm2

Declaration
procedure FlatButton2Click(Sender: TObject);

Implementation

procedure TForm2.FlatButton2Click(Sender: TObject);
begin
Close;
End;