Applies to
TForm12

Declaration
procedure FlatButton4Click(Sender: TObject);

Implementation

procedure TForm12.FlatButton4Click(Sender: TObject);
begin
Close;
End;