Applies to
TForm3

Declaration
procedure FlatButton4Click(Sender: TObject);

Implementation

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