Applies to
TForm1

Declaration
procedure FlatButton2Click(Sender: TObject);

Implementation

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